Outlook 2010, problemi nell'invio tramite ole
Posted: Fri Feb 11, 2011 8:13 am
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
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