Microsoft Outlook 2007

[karinha]

Microsoft Outlook 2007, algun ejemplo simples de como enviar emails con el? Gracias, saludos.

[stefano]

Esempio email HTML

guida comandi html (italiano) http://riemann.unica.it/studenti/guida/

<br> = CRLF ... a capo

Code: Select all  Expand view

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
 

Saluti
Stefano