Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1927 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Email depuis données Excel par VBA

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Email depuis données Excel par VBA

n°1273427
Bernard CH
Posté le 26-12-2005 à 19:21:55  profilanswer
 

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
 

mood
Publicité
Posté le 26-12-2005 à 19:21:55  profilanswer
 

n°1275136
PGreg
Posté le 30-12-2005 à 20:22:35  profilanswer
 

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.

n°1275234
Bernard CH
Posté le 31-12-2005 à 08:50:35  profilanswer
 

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

n°1276040
PGreg
Posté le 02-01-2006 à 19:48:13  profilanswer
 

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

n°1276193
Kyle_Katar​n
The World Is A Vampire ....
Posté le 03-01-2006 à 08:41:32  profilanswer
 

Sinon tu as le composant K-Mail que je développe qui te permet en plus de mettre des pièces jointes, du HTML ....


---------------
KC Softwares - VideoInspector (Codec Viewer) - AudioGrail

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Email depuis données Excel par VBA

 

Sujets relatifs
[VBA]Tableau croisé dynamique sur plage variable[Excel] Executer une macro automatiquement au lancement d'un classeur
[vba excel]generer formule par macroInstruction VBA Excel
ListBox VBAMacro API excel
Besoin d'aide VBA ExcelTri automatique sous Excel
Plus de sujets relatifs à : Email depuis données Excel par VBA


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR