Envoyer un mail ou message via une macro
Résolu
Bonjour, je voudrais envoyer un courriel via une macro....pas un courriel contenant le document excel...simplement un message qui me dit par exemple: «Bonjour toi!» lorsque j'appuie sur un bouton.
J'ai absolument besoin de la macro car je vais la jumeler avec d'autre fonction, donc fichier>partager>courriel ne répond pas au besoin.
À présent j'ai trouvé cette macro, mais je ne sais trop pour quelle raison, quand je l'active je ressois tout prêt de 200 fois le e-mail.
Sub SendMail()
'
' SendEmail Macro
'
'
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
olMail.To = "monadresse@gmail.com"
olMail.Subject = "Subject Line"
olMail.Body = "This is the buddy of the e-mail"
olMail.Send
End Sub
Merci bien à vous. J'ai fait des recherches sur le web mais je ne trouve pas!
J'ai absolument besoin de la macro car je vais la jumeler avec d'autre fonction, donc fichier>partager>courriel ne répond pas au besoin.
À présent j'ai trouvé cette macro, mais je ne sais trop pour quelle raison, quand je l'active je ressois tout prêt de 200 fois le e-mail.
Sub SendMail()
'
' SendEmail Macro
'
'
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
olMail.To = "monadresse@gmail.com"
olMail.Subject = "Subject Line"
olMail.Body = "This is the buddy of the e-mail"
olMail.Send
End Sub
Merci bien à vous. J'ai fait des recherches sur le web mais je ne trouve pas!
