Email depuis données Excel par VBA - VB/VBA/VBS - Programmation
Marsh Posté le 30-12-2005 à 20:22:35
Bonjour,
Voilà qui devrait correspondre à tes besoins :
On Error GoTo 1 'Renvoie à la ligne 1 si erreur
Dim appmail As Outlook.Application 'Avant cela, tu doit activer les objects Librairy d' Outlook dans les référence VBAProject (Menu Outil)
Dim mail As Outlook.MailItem
Set appmail = CreateObject("outlook.application" ) 'Création de l' object appmail
Set mail = appmail.CreateItem(olMailItem) 'Création de l' object mail de l' object appmail
With mail
.Subject = "Votre commande sour ref " & Range("B23" ) 'Titre du message
.Body = "Cher " & Range("A23" ) & ", nous vous remercions pour votre commande sour ref " & Range("B23" ) & Chr(10) & "Nous avons le plaisir de vous informer que la date d'expedition est le " & Range("C23" ) 'Corps du message
.To = Range("G23" ) 'Destination. Tu peux aussi utiliser .Recipients si l' adress de messagerie du destinataire est dans ton carnet d' adresse
.Send 'Envoie le message
End With
Range("D23" ) = "X"
Exit Sub
1 Range("D23" ) = "Une erreur est intervenu lors de l' envoie du message"
Normalement, ça devrait aller.
Marsh Posté le 31-12-2005 à 08:50:35
PGreg a écrit : Bonjour, |
Super Super Merci beaucoup, J'en profite pour te souhiater une super année 2006 pleine de VBA
Marsh Posté le 03-01-2006 à 08:41:32
Sinon tu as le composant K-Mail que je développe qui te permet en plus de mettre des pièces jointes, du HTML ....
Marsh Posté le 26-12-2005 à 19:21:55
Bonjour et bonnes fetes à tous
Je recherche une macro me permettant depuis des données en ligne sur une feuille excel, d'envoyer un email de confirmation de commande qui reprend certaines données de cete même feuille. Cete feuille compenant 200 commandes mensuels j en'ai pas besoin de boucle , mais uniquemetn un email depuis la ligne ou je me trouve.
Je m'explique
A23: Nom du Client
B23: No de la commande
C23: Date d'expedition de la commande
D23: X ( signifiant que l'email de confirmation à été effectué )
Objet du message: Votre commande sour ref "B23"
Corps du message:
Cher "A23", nous vous remercions pour votre commande sour ref "B23".
Nous avons le plaisir de vous informer que la date d'expedition est le "C23"
Bla Bla Bla
Merci pour votre aide