[vbs] envoyer un e-mail en html avec pièce-jointe en vbscript

Télécharger le projet
Commenter

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 !
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_hackoo)