Använda mall vid e-postutskick


I detta tips demonstreras hur vi kan använda oss av en anpassad mall vid utskick av e-post.

För att exemplet ska fungera krävs att en referens till MS Outlook x.x objektbibliotek anges.

 

Om ett felmeddelande erhålls vid kopiering till VBA-modul så läs mer här»
 

 

(© 2002 - 2003 All rights Colo - Used by permission)

 

Option Explicit  

Sub Mall_E_postutskick()

   '© 2003 Alla rättigheter XL-Dennis

   Dim olApp As Outlook.Application

   Dim olMailItem As Outlook.MailItem

 

   'Här skapar vi en ny dold instans av MS Outlook.

   Set olApp = New Outlook.Application

 

   'Här skapas ett nytt e-post utifrån mallen XLDennis.oft.

   Set olMailItem = olApp.CreateItemFromTemplate("C:\Test\XLDennis.oft")

 

   'Här tilldelar vi värden till vissa egenskaper hos e-psotmeddelandet.

   With olMailItem

      .Recipients.Add "Kund"

      .Subject = "Enligt överenskommelse"

      .Body = "Mvh XL-Dennis"

      With .Attachments

         .Add ThisWorkbook.Path & "\" & ThisWorkbook.Name

         .Item(1).DisplayName = "Mall e-postutskick"

      End With

      .Save

      .Display

   End With

 

   Set olMailItem = Nothing

   Set olApp = Nothing  

End Sub