[vbs] envoyer un e-mail en html avec pièce-jointe en vbscript
Soyez le premier à donner votre avis sur cette source.
Vue 10 393 fois - Téléchargée 681 fois
Description
Le Programme sert à envoyer un E-Mail en HTML avec Pièce-jointe en VBScript
sans même utiliser le Login et le Mot de passe (^_^)
Donc les lignes à modifier sont bien sûr :
objMessage.To = "xxxxx@gmail.com" 'Email du destinataire doit-être correct ici.
Le Nom du Serveur SMTP "smtp.xxxxx.fr"
piece-jointe="c:\fichier.ext" 'Tu dois changer le chemin de ton fichier si tu veux l'envoyer par piéce-jointe
A propos de ce script que j'ai proposé ici; J'ai voulu savoir s'il marche pour tous le monde ou non càd est-ce-que pour chaque utilisateur son Serveur SMTP laisse envoyer le Mail ou non et même sans Login et Mot de passe ?
donc j'attends vos tests et vos commentaires
Merci
Cordialement !
sans même utiliser le Login et le Mot de passe (^_^)
Donc les lignes à modifier sont bien sûr :
objMessage.To = "xxxxx@gmail.com" 'Email du destinataire doit-être correct ici.
Le Nom du Serveur SMTP "smtp.xxxxx.fr"
piece-jointe="c:\fichier.ext" 'Tu dois changer le chemin de ton fichier si tu veux l'envoyer par piéce-jointe
Source / Exemple :
'Donc les lignes à modifier sont bien sûr :
'objMessage.To = "xxxxx@gmail.com" 'Email du destinataire doit-être 'correct ici.
'("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xxxxx.fr"
'piece-jointe="c:\fichier.ext" 'Tu dois changer le chemin de ton image si 'tu veux l'envoyer par piéce-jointe
sub main()
Dim messageHTML
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Exemple de Message"
objMessage.From = """La maison communicante"" <Bill.Gates@gmail.com>" 'ici on s'en fou tu peux mettre n'importe quel mail même s'il n'existe pas (^_^)
objMessage.To = "xxxxx@gmail.com" 'Email du destinataire doit-être correct ici
objMessage.TextBody = "Ceci est un exemple de texte.." & vbCRLF & "Il est envoyé par un serveur SMTP."
piece-jointe="c:\fichier.ext" 'Tu dois changer le chemin de ton fichier si tu veux l'envoyer par piéce-jointe
messageHTML="Ceci est un message en HTML envoyé par hackoo"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xxxxx.fr"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
'Ajout d'un message en HTML en affichant une image hébergé dans un serveur distant
objMessage.HTMLBody="<center><font size=4 FACE=Tahoma Color=red>"&messageHTML&"<br><br><img src=http://photomaniak.com/upload/out.php/i1102064_IDNlogo.gif>"
objMessage.AddAttachment(piece-jointe) 'On peut ajouter aussi une image ou un fichier dans la piéce-jointe
objMessage.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Erreur"
msgbox "le mail n'a pas pu être envoyé !",16,"Information"
Else
msgbox "Le mail a été bien envoyé !",64,"Information"
End If
On Error GoTo 0
end sub
Call main
Conclusion :
A propos de ce script que j'ai proposé ici; J'ai voulu savoir s'il marche pour tous le monde ou non càd est-ce-que pour chaque utilisateur son Serveur SMTP laisse envoyer le Mail ou non et même sans Login et Mot de passe ?
donc j'attends vos tests et vos commentaires
Merci
Cordialement !
Codes Sources
A voir également
- [vbs] envoyer un e-mail en html avec pièce-jointe en vbscript
- Visual Basic / VB.NET : Envoyer un e-mail autonome (sans mapi) *- - CodeS SourceS - Guide
- Envoyer en e-mail avec outlook express sous vb - Codes sources - Visual Basic / VB.NET (Shell)
- Visual Basic / VB.NET : Colomb suite : navigateur web + navigateur ftp + envoi d'e-mail - CodeS Sour - Guide
- Visual Basic / VB.NET : Surveillance par webcam (détection de mouvement) avec envoi d'e-mail. - Guide
- Envoi des e-mail via vb.net 2005 - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
Commentaires
Testé sous Windows XP SP3 et 7 : OK.
Testé également avec 2 FAI, les 2 refusent une adresse d'expéditeur dont le nom de domaine n'existe pas...
Par exemple, tartempion@vbfrance.com fonctionne, tartempion@domaineinconnu.com ne fonctionne pas : "sender rejected" pour 1 des 2 FAI et "Sender address rejected: Domain not found" pour l'autre FAI.
Le "must" serait de pouvoir forcer le champ "Received:" qui apparait dans l'en-tête du message, par exemple :
Received: from OrdiKiNExistePas ([11.22.33.44])
à quoi sert objMessage.TextBody puisque tu as messageHTML ?
T'aurais pu automatiser quelques trucs comme l 'ajout de pièce jointe ou pièces jointes.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.