topic-33368

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Microsoft Outlook 2007
Posted: Tue Dec 20, 2016 06:02 PM

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

stefano

Posts: 80

Joined: Tue Mar 25, 2008 09:03 PM

Re: Microsoft Outlook 2007
Posted: Tue Dec 20, 2016 10:00 PM

Esempio email HTML

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

<br> = CRLF ... a capo

Code (fw): Select all Collapse

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

FWH 14.11 + xHarbour + bcc582

FiveTech Support Forums

Continue the discussion