Envoi d'une message électronique par excelRésolu

Question

Bonjour,


Je voudrais savoir s'il était possible d'envoyer automatiquement des messages électroniques depuis excel sur outlook à l'aide du langage Vba. Un fichier (par exemple type PDF) serait automatiquement inséré avec ce message. Le programme serait exécuté à l'aide d'une macro à partir d'un bouton. 
Si cette solution est envisageable, pourriez vous m'indiquer le site pour que je puisse me renseigner sur ce sujet.

Merci d'avance pour vos explications.

jrivet · Accepted Answer

Salut,
Un bouton sur une feuille excel et ceci:

'Il te faut ajouter en référence dans le projet
'VBA : Microsoft Outlook 9.0 Object Library
'( 9.0 ou équivalent)
Private Sub CommandButton1_Click()
Dim OutApp As New Outlook.Application
Dim MMail As MailItem
   Set MMail = OutApp.CreateItem(olMailItem)
   With MMail
       'destinataire
       .To = "epsylon9@gmail.com"
       'Sujet
       .Subject = "Mail Auto Excel"
       'Corps si tu veux
       .Body = "Ceci est un mail automatique"
      'J'ai mis un .dat mais tu peux mettre un .PDF
        .Attachments.Add ("C:\data.dat")
       'Si tu veux voir avant d'envoyer
       .Display
       'Envoi
       .Send
   End With
   Set MMail = Nothing
   Call OutApp.Quit
   Set OutApp = Nothing
End Sub<hr />

, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

drikce06 · Answer

Salut fait une recherche sur outlook et vba sur les différentes sources, tu trouveras surement ton bonheur!

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

drikce06 · Answer

http://www.vbfrance.com/recherche.aspx?r=outlook+vba&tr=source&dotnet=2




 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

Envoi d'une message électronique par excel

3 réponses

Votre réponse

Discussions similaires