Jpeg69
Messages postés28Date d'inscriptionvendredi 9 mars 2007StatutMembreDernière intervention 8 février 2008
-
21 mai 2007 à 19:45
Jpeg69
Messages postés28Date d'inscriptionvendredi 9 mars 2007StatutMembreDernière intervention 8 février 2008
-
22 mai 2007 à 10:54
Bonjour,
Je voudrai savoir si c'est possible d'envoyer un mail à partir d'excel à l'aide d'un boutton par exemple. Si oui quel serait alor le code VBA s'il vous plait.
Merci d'avance...
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 22 mai 2007 à 08:43
Salut,
Sinon si tu possède OutLook regarde ce que fais ce petit code. (attention il ne sera utilisable que si OUtllok est présent sur la machine)
Ajoute en référence à ton projet VBA Microsoft Outlook 9.0 Object Library (9.0 ou équivalent).
Un bouton sur une feuille Excel puis dans le code
Private Sub CommandButton1_Click()
Dim OutApp As New Outlook.Application
Dim MonMail As Outlook.MailItem
Set MonMail = OutApp.CreateItem(olMailItem)
With MonMail
'Destinataire
.To = "epsylon9@gmail.com"
'Sujet
.Subject = "Test d'envoi"
'Coprs du message
.Body = "Ceci est un test d'envoi de mail"
'Si tu veux l'afficher
Call .Display
'Envoi
Call .Send
End With
Set MonMail = Nothing
Call OutApp.Quit
Set OutApp = Nothing
End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]