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