J'utilise ce code pour tenter d'envoyer un mail à partir de vb6:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
If Internet_Active = False Then
    MsgBox "La connection Internet n'est pas active actuellement. Veuillez réessayer cette opération plus tard!", vbCritical
    Exit Sub
End If
 
MAPISession1.SignOn
MAPIMessages1.MsgIndex = -1
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.RecipDisplayName = "godgives5@yahoo.fr"  'Destinataire
MAPIMessages1.MsgSubject = "Un petit bonjour"       'Objet
MAPIMessages1.MsgNoteText = "Salut."                'Texte
MAPIMessages1.Send
MAPISession1.SignOff
Quand je l'exécute, j'ai ce message d'erreur:
Aucun profil n'a été créé. Veuillez choisir l'icone courrier/télécopie dans le panneau de configuration pour créer un nouveau profil.
J'ai tenté de créer le profil mais j'ai constaté qu'il s'agit d'un profil de méssagerie outlook! Ensuite, quand je reviens en vb exécuter le code, il m'envoie maintenant ce message:

Echec de la connexion
Je rappelle que les deux messages interviennent sur la ligne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
MAPISession1.SignOn
J'aimerais pouvoir envoyer un mail à un destinaire à partir de vb en utilisant mon adresse electronique!

Merci pour l'aide!!!