Soyez le premier à donner votre avis sur cette source.
Vue 11 120 fois - Téléchargée 697 fois
'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
27 janv. 2011 à 10:59
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])
25 janv. 2011 à 09:40
21 janv. 2011 à 14:34
à 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.