ouvrir un message outlook avec VBA

[atfcrew]

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

 

[david 45]

bonjour a toi

voici un code qui ouvre juste outlook

Set myOlApp = CreateObject('Outlook.Application')
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.Display


a toi d'essayer

 

[atfcrew]

mericbcp

ce que je voudrais exactement c'est pouvoir mettre automatiquement des adresses mails directement sur un message pret a l envoie ensuite y a juste a rediger le mail tu vois le truc ???



:woohoo: :side:

 

[atfcrew]

c'est exellent et tres simple comme code merci

 

[atfcrew]

ce code peut etre rendu encore plus simple avec

CreateItem(olMailItem).Display

 

[atfcrew]

ça y est a l aide ton code j ai trouvé ce que je voulais faire et ça tape trop (a faire au boulot pour impressioner vos collegues !!!)

Sub testoutlook2()
Set myOlApp = CreateObject('Outlook.Application')
Set myitem = myOlApp.CreateItem(olMailItem)
With myitem
.Recipients.Add ('jeanrene@hotmail.com;atfcrew@yahho.fr')
.Subject = 'analyse de données FO'
myitem.Display
End With
End Sub

:woohoo: :woohoo: