Sly le globe trotter
XLDnaute Occasionnel
Bonjour le forum,
Je cherche à envoyer un mail depuis Excel... Avec le code suivant, pas de souci mais je cherche à affiner le code puisque je ne connais pas systématiquement le destinataire. Je voudrais donc pouvoir créer le mail (objet, corps) mais l'envoyer manuellement après avoir saisi l'adresse mail directement dans le message...
Voici mon code
Je cherche à envoyer un mail depuis Excel... Avec le code suivant, pas de souci mais je cherche à affiner le code puisque je ne connais pas systématiquement le destinataire. Je voudrais donc pouvoir créer le mail (objet, corps) mais l'envoyer manuellement après avoir saisi l'adresse mail directement dans le message...
Voici mon code
Code:
Dim MonOutlook, MonMessage As Object
Dim Corps As String
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.to = ad 'ad est soit déterminé dans la macro ou à saisir dans le champ adresse manuellement
MonMessage.Subject = Mid(ActiveWorkbook.Name, 1, 17)
Corps = "Bonjour," & Chr(13) & Chr(10)
Corps = Corps & "La demande " & ActiveWorkbook.Name & " a été traitée."
MonMessage.body = Corps
MonMessage.Send
Set Raccourci = Nothing
Set MonOutlook = Nothing