jfaguiar Posted July 19, 2018 Report Share Posted July 19, 2018 Boa tarde amigos. Tenho essa função nos meus sistemas e gostaria de saber se tem algum parâmetro para cópia oculta. Obrigado function Mmail(cTo,cSentBy,cEmailHeader,cEmailNotes,cANEXO1) // Modificada por João Freire de Aguiar DEFAULT lEXIBE := .F. oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:Invoke("CreateItem", 0) oMailitem:to:=cTo // oMailItem:Recipients:Add( "tdsperth@outlook.com" ) 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) Quote Link to comment Share on other sites More sharing options...
ADutheil Posted July 24, 2018 Report Share Posted July 24, 2018 Já tentou oMailitem:BCC:=...... jfaguiar 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 24, 2018 Report Share Posted July 24, 2018 http://forums.fivetechsupport.com/viewtopic.php?f=3&t=29820&start=0&hilit=mailto%3A Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.