grosquick59
XLDnaute Junior
Bonjour, je post mon code. J'ai fait en sorte que outlook s'ouvre avec des destinataires pré remplis et un commentaire. Je souhaiterais inclure la feuille dans le mail. Je ne veux pas joindre le classeur mais juste la feuille car j'en ai plusieurs.
voici le code:
Sub Testmail()
' démarrage d'une instance d'outlook (Outlook démarré ou pas par ailleurs)
Set loOutlook = CreateObject("Outlook.Application")
Set loNameSpace = loOutlook.GetNamespace("MAPI")
loNameSpace.Logon
' création d'une instance de message
Set myitem = loOutlook.CreateItem(olMailItem)
' titre du message avec Codification et indice
myitem.Subject = "Suivi des actions MDC "
' corps du message
myitem.Body = "Bonjour etc.........."
' destinataires du message
myitem.Recipients.Add ("Thibault; Delphine")
' affichage pour envoi manuel
myitem.Display
'myitem.send
' libération de la mémoire liée au message
Set myitem = Nothing
Set loMailItem = Nothing
End Sub
Thibault
voici le code:
Sub Testmail()
' démarrage d'une instance d'outlook (Outlook démarré ou pas par ailleurs)
Set loOutlook = CreateObject("Outlook.Application")
Set loNameSpace = loOutlook.GetNamespace("MAPI")
loNameSpace.Logon
' création d'une instance de message
Set myitem = loOutlook.CreateItem(olMailItem)
' titre du message avec Codification et indice
myitem.Subject = "Suivi des actions MDC "
' corps du message
myitem.Body = "Bonjour etc.........."
' destinataires du message
myitem.Recipients.Add ("Thibault; Delphine")
' affichage pour envoi manuel
myitem.Display
'myitem.send
' libération de la mémoire liée au message
Set myitem = Nothing
Set loMailItem = Nothing
End Sub
Thibault