Envoi d'email via outlooklRésolu

Question

Bonjour a tous, 
Dans le but d'envoyer un email depuis outlook j'utilise le code suivant que j'ai recuperer sur atoutfox

TRY
oOutLookObject = CreateObject('Outlook.Application')
oEmailItem = oOutLookObject.CreateItem(MAILITEM)
WITH oEmailItem
   .Recipients.Add(thisform.Txt_email) && uses the Recipients collection
   .Subject = thisform.txt_sujet 
   .Importance = IMPORTANCENORMAL
   .Body = thisform.txt_texte
   .Send
ENDWITH
RELEASE oEmailItem
RELEASE oOutLookObject

CATCH TO erreur
MESSAGEBOX("Impossible d'envoyer l'email" + CHR(13) + erreur.message)
endtry

Mais quand j'execute ce code j'ai une erreur me disant "MAILITEM introuvable". 
Avez vous une solution, a quoi correspond MAILITEM ?

Merci de votre aide.
duck88

duck88

Mike Gagnon · Accepted Answer

Si tu regardes au debut de l'example http://www.atoutfox.com/articles.asp?ACTION=FCONSULTER&ID=0000000083, tu vas trouver les DEFINE qu'il definir avant de rouler ton code.

Mike Gagnon · Answer

Et IMPORTANCENORMAL va te causer du soucis aussi, il se trouve aussi dans la liste des DEFINE.

ducker88 · Answer

ok ca marche merci

duck88

Envoi d'email via outlookl

3 réponses

Votre réponse

Discussions similaires