Niquet.nl

Aanmaken Outlook e-mailbericht

Reserveren variabelen

dim olApp as outlook.Application
dim olMail as Outlook.Mailitem

Initiƫren Outlook

set olApp = New Outlook.Application
set olNs = olApp.GetNamespace("MAPI")
set olMail = olApp.CreateItem(olMailItem)

Of:

set olMail = Application.CreateItem(olMailItem)
set olNs = Application.GetNamespace("MAPI")

E-mailbericht vullen

With olmail
   .SendUsingAccount = olApp.Session.Accounts.Item(x)
   .Display
   .subject = "Onderwerp"
   .HTMLbody = html tekst & .HTMLbody
   


End with

Leave a Comment