[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

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

Ajouter un commentaire

Commentaires

Messages postés
51
Date d'inscription
mercredi 29 septembre 2004
Statut
Membre
Dernière intervention
7 juillet 2010

Salut !
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])
Messages postés
27
Date d'inscription
jeudi 23 mars 2006
Statut
Membre
Dernière intervention
25 mars 2011

Très pratique, merci
Messages postés
118
Date d'inscription
jeudi 11 mai 2006
Statut
Membre
Dernière intervention
6 mars 2015

Salut,
à 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.