TOleAuto():New("Outlook.Application")

[jfaguiar]

Bom dia caríssimos.

Costumo utilizar essa classe para enviar e-mail pelo outlook e gostaria de saber se ela possui o método cópia oculta.

Para maior clareza, segue a minha function:

Obrigado

 

function Mmail(cTo,cSentBy,cEmailHeader,cEmailNotes,cANEXO1,cToCco) 
oOutLook := TOleAuto():New("Outlook.Application")
oMailItem := oOutLook:Invoke("CreateItem", 0)
oMailitem:to:=cTo
oMailitem:CC:= cSentBy
oMailItem:Subject := cEmailHeader
oMailItem:Body := cEmailNotes
if ! empty(cANEXO1)
   IF VALTYPE(cANEXO1) == "C"
      oMailItem:Attachments:Add(cANEXO1)
   ELSEIF VALTYPE(cANEXO1) == "A"
      FOR _i := 1 TO LEN(cANEXO1)
          oMailItem:Attachments:Add(  cANEXO1[_i]  )
      NEXT
   ENDIF
endif
oMailItem:display(.T.)
RETURN(nil)

 

[ADutheil]

Não uso a classe. Eu tentaria  oMailitem:BCC

[Marca]

 

Bom dia caríssimos.

Costumo utilizar essa classe para enviar e-mail pelo outlook e gostaria de saber se ela possui o método cópia oculta.

Para maior clareza, segue a minha function:

Obrigado

 

function Mmail(cTo,cSentBy,cEmailHeader,cEmailNotes,cANEXO1,cToCco) 
oOutLook := TOleAuto():New("Outlook.Application")
oMailItem := oOutLook:Invoke("CreateItem", 0)
oMailitem:to:=cTo
oMailitem:CC:= cSentBy
oMailItem:Subject := cEmailHeader
oMailItem:Body := cEmailNotes
if ! empty(cANEXO1)
   IF VALTYPE(cANEXO1) == "C"
      oMailItem:Attachments:Add(cANEXO1)
   ELSEIF VALTYPE(cANEXO1) == "A"
      FOR _i := 1 TO LEN(cANEXO1)
          oMailItem:Attachments:Add(  cANEXO1[_i]  )
      NEXT
   ENDIF
endif
oMailItem:display(.T.)
RETURN(nil)

 

// Copia Oculta
         oMail:BCC := AllTrim(Setup->EmailUser)