non je suis sous vb5
j'ai fait sa
Private Sub Command2_Click()

   Dim sujet As String
   Dim body As String 
 body = "Merci de bien vouloir me commander la liste si join !!!"
  Call ShellExecute(Me.hwnd, "open", "mailto:petiflamand@msn.com?Subject=" & sujet & "&body=" & body & "", 0&, 0&, 1)
End Sub
avec sa il ouvre , mon programme mail il ecris le body a la bonne place ,mais je trouve pas comment faire l'attachement.

[ Lien ]

[ Lien ]

 Si la réponse te conviens merci de l'accepter 

Bonsoir,
Je n'ai pas vb sous la main mais j'avais fais une fonction d'envois de mail il y a quelques mois similaire à la l'adresse que je t'ai donné.

Je te donne le code avec l'appel de la fonction pour envoyer le mail
J'étais chez wanadoo donc le serveur smtp était celui de wanadoo smtp.wanadoo.fr, il faut que tu mettes celui de ton FAI.

Pour CDO regarde dans les références (peut etre menu -> projet -> références) et regarde si tu as "Microsoft CDO for Windows 2000 Librairy", coche-le sinon utilise la seconde adresse que je t'ai donnés et télécharge le.

Je ne peux pas tester ce code car j'ai pas vb mais il a marché auparavant ! Alors je pense qu'il ne devrait pas y avoir de problèmes.

Bon courage

à mettre le code suivant dans un module
Public Function SendMail(sAddress As String, sSubject As String, sMsg As String, sFileJoint As String) As Boolean
    
    'création d'un nouvel objet CDO
    Dim objEmail As New CDO.Message
   
    'configuration des paramètres du mail
    objEmail.From = "adressemail@wanadoo.fr"
    objEmail.To = sAddress
    objEmail.Subject = sSubject
    objEmail.TextBody = sMsg
    objEmail.AddAttachment sFileJoint
   
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.wanadoo.fr"
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 40
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2
   
    objEmail.Configuration.Fields.Update    'MàJ de l'objet
    objEmail.Send   'envoi du mail
   
End Function

A mettre dans un bouton (par exemple)

Dim bRet as Boolean
bRet = SendMail ("adresse_mail_de_ton_destinataire", "Objet du mail", "ton texte dans le mail........., "c:\ton_fichier_a_joindre.doc")

MsgBox bRet

Si tu as d'afficher Vrai ou True je sais plus est bien le mail avec pièce jointe a été envoyé avec succès :)

 Si la réponse te conviens merci de l'accepter 

 Si la réponse te conviens merci de l'accepter