MAPI et profils outlook

Question

Quand je tente d'envoyer un mail avec MAPI et que je lui indique comme profil celui d'outlook, il me demande une confirmation pour authoriser l'acces au carnet d'adresses d'outlook et encore une pour envoyer le message.
Comment on peut faire pour éviter ces demandes de confirmation ?

Dim objSession As MAPI.Session
Dim objMessage As MAPI.Message
Dim objOneRecip As MAPI.Recipient
 
'Création d'une session et appel de la méthode Logon
Set objSession = CreateObject("MAPI.Session")
'On spécifie une nom de profil existant sur le poste
objSession.Logon profileName:="Outlook"
 
' Création d'un message que l'on ajoute dans le dossier
'"Boîte d'envoi"
Set objMessage = objSession.Outbox.Messages.Add
objMessage.Subject = "Titre du message"
objMessage.Text = "Ceci est un test."

' Création de l'objet Recipient
Set objOneRecip = objMessage.Recipients.Add
objOneRecip.Name = "f.le.chat@do-you-miaou.net"
objOneRecip.Type = "1"
objOneRecip.Resolve ' à partir du nom, on détermine l'adresse email complète
 
'Envoi du message et appel de la méthode LogOff
objMessage.Send showDialog:=False
MsgBox "message envoyé"
objSession.Logoff

arnolem · Answer

j'ai cherch&#233; longtemps et je cherche encore, suit la piste que j'ai ouvert sur : http://www.developpez.net/forums/viewtopic.php?t=328828
tu aura peut etre plus de chance que moi

MAPI et profils outlook

1 réponse

Discussions similaires