Pas d'inquiétude, avec PBAdonf, c'est dans la poche ! ^^
Le forum (ô combien francophone) des utilisateurs de Powerbuilder.
Annonce
Dans la rubrique Liens & Références, vous avez accès à un sommaire de téléchargement, profitez-en !
Il existe maintenant un nouveau TOPIC "Votre CV en Ligne" accessible uniquement par demande.
#1 09-12-2010 09:41:41
- Chat80
- Membre Geek
- Date d'inscription: 21-09-2007
- Messages: 42
- Pépites: 238
- Banque: 0
Feedback send outlook
Bonjour,
J'utilise outllook dans mon appli PB.
Tout fonctionne correctement.
Cependant j'aimerais savoir si le mail a bien été envoyé.
Ou par exemple si l'adresse est incorrect pouvoir récupérer l'évenement.
voici un bout de code :
oMsg.Subject = ls_subject
oMSG.HTMLBody = "<html><body><b>bold</b> text</body></html>"
oMsg.Recipients.Add( ls_sendto)
oMsg.Recipients.ResolveAll
oMsg.Send
si j'essaie de capturer une exception ou erreur comme ceci :
try
oMsg.Send
catch
...
cela ne fonctionne pas .. car l'envoi s'effetue bien .. mais l'adresse du destinataire est incorrect.
Comment faire pour vérifier le feedbak de la méthode send ??
Hors ligne
#2 09-12-2010 10:06:25
- erasorz
- Admin
- Lieu: Babylone
- Date d'inscription: 23-11-2006
- Messages: 5121
- Pépites: 97,197
- Banque: 2,147,483,647
Re: Feedback send outlook
Bonjour, il n'y a pas de code de retour pour send ?
NB :
N'envoyez jamais un humain faire le travail d'un programme.
Hors ligne
#3 09-12-2010 13:46:16
- Chat80
- Membre Geek
- Date d'inscription: 21-09-2007
- Messages: 42
- Pépites: 238
- Banque: 0
Re: Feedback send outlook
ok résolu.
Non la méthode send ne renvoi pas un code.
Par contre il existre une propriété " sent " qui permet de voir si le mail a été envoyé.
Pour infos .. lien utile pour la bibliothèque OUTLOOK :
http://www.dimastr.com/redemption/
ce n'est pas tout a fait par mapi que je passe :
oSession = create oleobject
oSession.ConnectToNewObject("Redemption.RDOSession")
oSession.LogonExchangeMailbox(trim(asmailuserid),"EX-MAIL-11.test")
oMsg = create oleobject
oMsg = oSession.GetDefaultFolder(4).Items.Add(0)
oMsg.Subject = ls_subject
oMsg.Recipients.Add(ls_sendto[liCount]).type = 1
oMsg.Recipients.ResolveAll
oMsg.Recipients.Add(ls_sendcc[liCount]).type = 2
oMsg.Recipients.ResolveAll
oMsg.Attachments.add(ls_attachement[liCount])
oMsg.Send
if oMsg.Sent = false then
li_rc = -4
lb_kill = true
goto sortie
end if
Hors ligne
#4 09-12-2010 13:56:33
- erasorz
- Admin
- Lieu: Babylone
- Date d'inscription: 23-11-2006
- Messages: 5121
- Pépites: 97,197
- Banque: 2,147,483,647
Re: Feedback send outlook
A la bonne heure.
N'oublie pas le [RESOLU] et les balises pour le code PB.
N'envoyez jamais un humain faire le travail d'un programme.
Hors ligne
