Page 1 of 1

Outlook 2010, problemi nell'invio tramite ole

Posted: Fri Feb 11, 2011 8:13 am
by Marco Turco
Salve a tutti,
ho la necessità di inviare email tramite outlook dal mio applicativo FWH+xHB e per fare questo utilizzo questa routine OLE.
Il problema è che con office 2010, outlook mi rimanda indietro la mail con il messaggio "Impossibile inviare messaggi al destinatario con alcun account di posta elettronica disponibile.". Ho cercato su google e si parla spesso di questo problema ma non di una soluzione.

Vorrei sapere se qualcuno di voi ha già avuto lo stesso problema ed ha un sistema per bypassarlo.

Questa la mia routine di invio:



FUNCTION Interactivemessage()
paramet cSubject, cBody, aTo, aFiles, lDirectSend,lUseCC,cOrigin

LOCAL oOutLook,oMailItem,oRecip,oAttach,i,lOffice,lMailMancante,cVar
local nSelected,oDlg1


if lUseCC=NIL
lUseCC:=.f.
endif

if lDirectSend=NIL
lDirectSend:=.f.
endif

if cSubject=NIL
cSubject:=""
endif
if cBody=NIL
cBody:=""
endif
if aFiles=NIL
aFiles:=array(0,0)
endif

lMailMancante:=.f.
for i:=1 to len(aTo)
if len(alltrim(aTo[i,2]))=0
lMailMancante:=.t.
endif
next

if lMailMancante
MsgStop("Indirizzo di posta elettronica assente","Attenzione")
return
endif


TRY
oOutLook := CreateObject( "Outlook.Application" )
oMailItem := oOutLook:CreateItem( 0 )
oRecip := oMailItem:Recipients
CATCH
lOffice:=.f.
END


if lUseCC
cVar:=""
for i:=1 to len(aTo)
cVar:=cVar+aTo[i,2]+";"
next
oMailItem:Bcc:=cVar
else
for i:=1 to len(aTo)
oRecip:Add( aTo[i,2] )
next
endif

oMailItem:Subject := cSubject

oMailItem:Body := cBody

if len(aFiles)>0
oAttach := oMailItem:Attachments
for i:=1 to len(aFiles)
oAttach:Add( aFiles[i,1] )
next
endif

if lDirectSend
oMailItem:Send()
else
oMailItem:display(.t.)
endif

return

Grazie in anticipo