Email depuis données Excel par VBA

Email depuis données Excel par VBA - VB/VBA/VBS - Programmation

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
 

Reply

Marsh Posté le 26-12-2005 à 19:21:55   

Reply

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.

Reply

Marsh Posté le 31-12-2005 à 08:50:35    

PGreg a écrit :

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.


 
 
Super Super Merci beaucoup, J'en profite pour te souhiater une super année 2006 pleine de VBA

Reply

Marsh Posté le 02-01-2006 à 19:48:13    

Merci,
 
Bonne année à toi aussi.
 
PGrég

Reply

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 ....

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed