Envoyer Mail A Partir D'un Fichier Excel

JBOBO

XLDnaute Accro

• 27 Octobre 2007

• #2

Re : Envoyer Mail A Partir D'un Fichier Excel

y a t'il quelqu'un qui puisse m'aider SVP !

 

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 28 Octobre 2007

• #3

Re : Envoyer Mail A Partir D'un Fichier Excel

re:

ce sujet a été souvent traité sur ce forum,

effectue une recherche dans ce forum en y mettant le mot "mail" p.ex.,
un des liens est: https://www.excel-downloads.com/thr...-jointe-et-envoi-par-mail-depuis-excel.83413/
ou p.ex. :

Sub sente_email
On Error Resume Next
ActiveWorkbook.Save

Dim MailAd As String
MailAd = ".....@....." ' y mettre les adresses email de destinataires
Application.Dialogs(xlDialogSendMail).Show MailAd
'ActiveWorkbook.Close
End Sub

ou p.ex. Thierry's Demo mis sur ce forum, (voir fichier ci-joint)

bonne journée encore,

 

Pièces jointes

• send_mail.zip

  22.6 KB · Affichages: 1 213

Dernière édition: 28 Octobre 2007

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 28 Octobre 2007

• #4

Re : Envoyer Mail A Partir D'un Fichier Excel

Re:

le fichier comme tu veux envoyer par email serait comme ceci, repris des données de ce forum et reste à développer encore :

'macro qui enregistre un fichier en fonction de la valeur texte de 2 cellules
'et ferme ce fichier après l'avoir envoyé " à priori" de manière automatique par mail à l'adresse email

Sub envoi_auto()
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\" & Range("A1").Text & "_" & Range("A2").Text, FileFormat:=xlNormal, Password _
:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:= _
False
ActiveWorkbook.SendMail Recipients:="._._.@_._." 'y mettre l'adresse email
ActiveWorkbook.AddMail Recipients:="._._.@_._."

ActiveWindow.Close
End Sub


' Activer la référence "Microsoft Outlook Library" (menu outils/références)
y clicker sur Alt-F11 et sous Outil > Références > cocher Microsoft Outlook Library

 

Dernière édition: 28 Octobre 2007

Vote positif 0 Vote négatif

JBOBO

XLDnaute Accro

• 29 Octobre 2007

• #5

Re : Envoyer Mail A Partir D'un Fichier Excel

Merci à tous, je teste ça au calme et je vous tiens au courant,

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 6 Mai 2008

• #6

Re : Envoyer Mail A Partir D'un Fichier Excel

Bonjour à tous,

J'aime plutot bien le fichier send mail de news.

Par contre peux t'on mettre dans le champs adresse mail, un cellule avec dèjà cette adresse renseigné ?

Merci à tous

Manu

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 6 Mai 2008

• #7

Re : Envoyer Mail A Partir D'un Fichier Excel

Slaut à tous,

J'ai trouvé, il fallait mettre la référence de la cellule dans controlsource.

Parcontre, aulieu de joindre un xls, peux t'on joindre un pdf
Comment ajouter ce petit changement ?

Merci de votre aide

Manu

 

Vote positif 0 Vote négatif