J'utilise ce code pour tenter d'envoyer un mail à partir de vb6:
Quand je l'exécute, j'ai ce message d'erreur:
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
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: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.
Je rappelle que les deux messages interviennent sur la ligne:Echec de la connexion
J'aimerais pouvoir envoyer un mail à un destinaire à partir de vb en utilisant mon adresse electronique!
Code : Sélectionner tout - Visualiser dans une fenêtre à part MAPISession1.SignOn
Merci pour l'aide!!!
Partager