Mail automatique à partir d'excel
Résolu/Fermé
A voir également:
- Envoi mail automatique excel sans vba
- Réponse automatique thunderbird - Guide
- Liste déroulante excel - Guide
- Mail delivery system - Astuces et Solutions
- Excel compter cellule couleur sans vba - Guide
- Programmer envoi mail gmail - Guide
3 réponses
zebulon2503
Messages postés
1228
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
11 février 2016
110
29 avril 2010 à 10:49
29 avril 2010 à 10:49
Salut
Un UserForm dans Excel avec des textbox pour l'adresse, le message, chemin fichier joit (facultatif), un bouton Envoyer qui appelle la procédure suivante (que bien sûr tu arranges) :
Un UserForm dans Excel avec des textbox pour l'adresse, le message, chemin fichier joit (facultatif), un bouton Envoyer qui appelle la procédure suivante (que bien sûr tu arranges) :
Sub envoyer(Message As String, Nom_Du_Fichier As String, Adresse As String)
Dim o As Outlook.Application
Set o = New Outlook.Application
Dim Mail As Outlook.MailItem
Set Mail = o.CreateItem(olMailItem)
With Mail
.Subject = "Subjet"
.To = Adresse
.HTMLBody = Message
.Attachments.Add Nom_Du_Fichier
'.Send
.Display
End With
o.ActiveWindow
Set Mail = Nothing
Set o = Nothing
End Sub
29 avril 2010 à 19:29
30 avril 2010 à 08:49