hello ::
comment faire pour ouvrir un message outlook avec vba ??
j'ai trouver ce code mais il ne permet pas d'ouvrir juste le message, celui ci: ecrit le titre, le message, l adressse mail et l 'envoie....
Sub testoutlook()
'test envoie message via outlook
Dim ofolder As Outlook.MAPIFolder
Dim oitem As Outlook.MailItem
Dim ooutlook As New Outlook.Application
Dim mooutlook As Outlook.Namespace
Set mooutlook = ooutlook.GetNamespace('MAPI')
Set ofolder = mooutlook.GetDefaultFolder(olFolderOutbox)
Set oitem = ofolder.Items.Add(olMailItem)
With oitem
.Recipients.Add ('jeanrene@hotmail.com')
.Subject = 'test d'envoie message outlook'
.Body = 'test par bva'
.Send
End With
End Sub
merci bcp bcp bcp
comment faire pour ouvrir un message outlook avec vba ??
j'ai trouver ce code mais il ne permet pas d'ouvrir juste le message, celui ci: ecrit le titre, le message, l adressse mail et l 'envoie....
Sub testoutlook()
'test envoie message via outlook
Dim ofolder As Outlook.MAPIFolder
Dim oitem As Outlook.MailItem
Dim ooutlook As New Outlook.Application
Dim mooutlook As Outlook.Namespace
Set mooutlook = ooutlook.GetNamespace('MAPI')
Set ofolder = mooutlook.GetDefaultFolder(olFolderOutbox)
Set oitem = ofolder.Items.Add(olMailItem)
With oitem
.Recipients.Add ('jeanrene@hotmail.com')
.Subject = 'test d'envoie message outlook'
.Body = 'test par bva'
.Send
End With
End Sub
merci bcp bcp bcp