1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub creeEtEnregistreMailEnMsgOk()
Dim oApp As Outlook.Application
' le mapi namespace
dim oNameSpace as Outlook._NameSpace
Dim oOutboxFolder As Outlook.MAPIFolder
oApp = New Outlook.Application()
oNameSpace= oApp.GetNamespace("MAPI")
oNameSpace.Logon(Nothing,Nothing,True,True)
'gets defaultfolder for my Outlook Outbox
oOutboxFolder = oNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
' puis , création du mail
dim oMailItem as Outlook._MailItem= oApp.CreateItem(Outlook.OlItemType.olMailItem)
oMailItem.To = "xxx@xxx.fr"
oMailItem.Subject = "le sujet du mail"
oMailItem.Body = "contenu de mon mail"
oMailItem.SaveAS("c:/mail.msg")
' oMailItem.Send
End Sub |
Partager