Comment envoyer un mail automatiquement avec une pièce jointe ?

 



Vous pouvez utiliser un programme, par exemple BLAT.EXE (en anglais)
Vous trouverez la dernière version sur le site du concepteur (en anglais):
http://www.blat.net


Autre solution :

Si vous disposez de Windows XP, Outlook ou CDO voici un scripts VBS (enregistrez les fichiers au format texte avec notepad, et mettez leur l'extention .vbs puis exécutez-le) :


Ces scripts correspondent à deux situations différentes :
1 : Vous avez installé le serveur virtuel SMTP

Serveur virtuel SMTP installé avec IIS

Ce script permet d'envoyer un message au format texte ou HTML (disponible uniquement dans CDO -Collaboration Data Object- for Windows 2000 ou CDO for Exchange 2000 ) (service SMTP virtuel activé)

'---8<---Envoi_MAIL_CDO.VBS avec Serveur virtuel SMTP installé ---Couper-Ici---
' Envoi automatique d'un message avec deux fichiers joints.
' Nécessite Windows 2000/XP ou une installation Microsoft Office (Outlook).
'
' Dans From Adresse de l'expéditeur
' Dans To spécifie l'adresse du destinataire
' Dans Subject spécifie le sujet du mail
' Dans TextBody ou TMLBody Inscris le corps du mail
' Dans AddAttachment Inscris l'adresse de la PJ à envoyer
'
'
With CreateObject("CDO.Message")
.From="Expediteur@moi.fr"
.To="destinataire@fai.com"
.Subject="Sujet du message"
.TextBody="Texte du Message."&VbNewLine&"Signature" ou .HTMLBody="Texte du Message en HTML"
.AddAttachment("C:\Mes Fichiers\Mon Fichier_1.ext")
.AddAttachment("C:\Mes Fichiers\Mon Fichier_2.ext")
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
End With
'---8<---Envoi_MAIL_CDO.VBS---Couper-Ici---


2 : Vous n'avez pas le serveur virtuel SMTP

Il va falloir se servir d'un compte SMTP, celui de votre messagerie. (par exemple, si vous avez un compte Free.fr, le compte SMTP est smtp.free.fr)



'---8<---Envoi_MAIL_CDO.VBS avec SMTP désigné ---Couper-Ici---
' Envoi automatique d'un message avec deux fichiers joints.
' Nécéssite Windows 2000/XP ou une installation Microsoft Office (Outlook).
'
' Dans From Adresse de l'expéditeur
' Dans To spécifie l'adresse du destinataire
' Dans Subject spécifie le sujet du mail
' Dans TextBody ou TMLBody Inscris le corps du mail
' Dans AddAttachment Inscris l'adresse de la PJ à envoyer
' Dans Configuration.Fields.Item Inscris le nom du serveur SMTP dont tu veux te servir. '
'
'
With CreateObject("CDO.Message")
.From="Expediteur@moi.fr"
.To="destinataire@fai.com"
.Subject="Sujet du message"
.TextBody="Texte du Message."&VbNewLine&"Signature" ou .HTMLBody="Texte du Message en HTML"
.AddAttachment("C:\Mes Fichiers\Mon Fichier_1.ext")
.AddAttachment("C:\Mes Fichiers\Mon Fichier_2.ext")
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ServeurSMTP"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
End With
'---8<---Envoi_MAIL_CDO.VBS---Couper-Ici---



Documentation sur le CDO : (en anglais)
CDO 1.2
http://msdn2.microsoft.com/en-us/library/ms527445(EXCHG.10).aspx

CDO for Windows 2000:
http://msdn2.microsoft.com/en-us/library/ms527568(EXCHG.10).aspx

Note KB 171440
INFO: Where to Acquire the CDO Libraries (all versions)



Fabrication automatique du script
Expéditeur ( De : )
Format du message
Serveur SMTP(Laisse libre si tu as un serveur SMTP installé)
Sujet/Titre du mail
Pièce Jointe
( Il est possible de mettre plusieurs adresses à la suite à condition de les séparer par un point virgule )
Corps du message

(JMST)(Paskal)(Mithrandir)