Soyez le premier à donner votre avis sur cette source.
Snippet vu 20 877 fois - Téléchargée 42 fois
'--------------------------- Private Sub Command1_Click() Dim iMsg As New CDO.Message Dim iConf As New CDO.Configuration Dim Flds As ADODB.Fields Set Flds = iConf.Fields With Flds .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "un serveur SMTP" ' Si vous utilisez la librairie CDO pour exchange '.Item(cdoSMTPServerName) = "un serveur SMTP" ' Si vous utilisez la librairie CDO pour Windows 2000 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "Le nom du compte de la messagerie" .Item(cdoSendPassword) = "Votre mot de passe" .Item(cdoURLProxyServer) = "server:80" .Item(cdoURLProxyBypass) = "<local>" .Item(cdoURLGetLatestVersion) = True .Update End With With iMsg Set .Configuration = iConf .To = """Nom quelconque"" <Adresse email>" .From = """Nom quelconque"" <adresse email>" .Subject = "Ca marche !" .TextBody = "sans probleme" '.AddAttachment "C:\un fichier quelconque" .Send End With End Sub '-----------------------------------------------
Commentaires
Si l'adresse est mauvaise, le message part dans la nature et je ne suis pas informé qu'il n'a pas abouti. J'ai pourtant renseigné:
.Item(cdoSMTPServer) = "smtp.wanadoo.fr" ' (je ne sais pas si c'est bon et ça a l'air de ne servir à rien, et
.From = """Mon Nom"" <Mon adresse email>" qui parait bien pris en compte
Je ne vois pas ce qu'il faut indiquer de plus pour que les retours me reviennent. Merci pour votre aide.
Ca me ferait très plaisir que vous m'appeliez au 01.30.30.60.70 pour:
1) vous remercier de vive voix
2) vous exposer rapidement mon application qui pourra peut-être vous intéresser.
Exemple :
.HTMLBody = ""
.AddRelatedBodyPart "C:Image.jpg", "LOGO", cdoRefTypeLocation
Je recherche maintenant la solution pour insérer des images provenant de fichiers locaux. Avec des images sur Internet insérées dans le HTLM ca marche très bien. Mais je n'arrive pas à insérer des images locales comme le fait Outlook express par exemple. Auriez vous encore une idée lumineuse sur la question? Je suis prêt à me reconnaître de votre aide qui m'est très utile: 01.30.30.60.70.
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.