TRY
oOutLook := GetActiveObject("Outlook.Application")
EmSend := .T.
CATCH
TRY
oOutLook := GetActiveObject("Outlook.Application")
EmSend := .F.
CATCH
EmSend := .F.
END
END
IF !EmSend
ShellExecute(,"Open","Outlook",,,3)
EmSend = .T.
ENDIF
IF EmSend
oOutlook = CREATEOBJECT( "Outlook.Application" )
oNameSpace := oOutlook:GetNameSpace("MAPI")
oMail = oOutlook:CreateItem( olMailItem )
oMail:to := reftsc
oMail:Subject = "Proposta NUOVA/MODIFICA Frase" // OGGETTO
// testo email
oMail:htmlBody = "Prog: : " + alltrim(str(cprogf))+"<br>" + "<br>" +"Lavorazioni : "+alltrim(ccodfd)+"<br>" + "<br>" + "Descrizione ridotta : " +alltrim(cdescf)+"<br>"+"<br>" + "Frase : " +"<br>"+alltrim(xcnotef)+"<br>"+"<br>"+upper(WNetGetUser())
oMail:BodyFormat := 2 // FORMAT HTML
oMail:Display = .T.
endif
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 66 guests