FiveTech Support Forums

Salve a tutti,
ho la necessità di inviare tramite una mia applicazione una mail tramite MAPI in modo che venga inserita nella casella posta in uscita di Outlook.

Nessun problema con Outlook 2000 ma da quando ho inserito Outlook 2003 la posta inviata in questo modo mi torna indietro con il messaggio di errore "Impossibile inviare messaggi al destinatario con alcun account di posta elettronica disponibile".

I pratica è come se non utilizzasse l'account di default di Outlook.
Segue la routine che utilizzo.
Penso che non ci siano problemi utilizzando le funzioni OLE tuttavia queste mi precludono l'utilizzo di altri client di posta tipo Outlook Express o Eudora.

Qualche idea ?

Grazie in anticipo

Marco Turco

************************
#include "FiveWin.ch"
#include "Mail.ch"

function InteractiveMessage()
paramet cSubject,cBody,aFrom,aFiles

local oMail

for i:=1 to len(aFrom)
aFrom[i,1]:=alltrim(aFrom[i,2])
aFrom[i,2]:=alltrim(aFrom[i,2])
next



oMail:=tMail():New( cSubject,cBody,,,,, .f., .t.,,afrom,aFiles)

ACTIVATE MAIL oMail

retcode:=oMail:nRetCode

do case
case retcode=1
MsgStop("Invio interrotto dall'utente","Errore")
case retcode=9
MsgStop("Troppi files da inviare","Errore")
case retcode>0
MsgStop("Errore nell'invio della mail ("+alltrim(str(retcode,3))+")","Errore")
endcase

return

Marco,
mi è capitato lo stesso problema oggi.
Per caso ti ricordi se poi hai risolto il problema?

Grazie

marco