enviar email
43 views
Skip to first unread message
Diomedes Amparo
Nov 29, 2025, 7:10:54 AMNov 29
to Harbour Minigui
Ola amigos
bom dia
vi uma rotina para enviar e-mail conforme abaixo, porem no final aponta para oMail:Send() ou seja monta o email e envia automaticamente, existe alguma forma por exemplo ao invés de enviar apenas abrir o email montado, tipo de oMail:Send() colocar no lugar oMail:Open()
oOutLook := CreateObject("Outlook.Application")
oMail := oOutLook:CreateItem(0)
oRecip:= oMail:Recipients
oRecip:Add( EMAIL_PARA )
oMail:Cc := EMAIL_COPIA
oAdjunto:=oMail:Attachments
oAdjunto:Add( GETPROPERTY( "FORM_ENVIAR_EMAIL","LIBANEXAR","ITEM",XX ) )
oMail:Subject := FORM_ENVIAR_EMAIL.TXTASSUNTO.VALUE
oMail:Body := FORM_ENVIAR_EMAIL.EDBCORPO.VALUE
oMail:Send()
bom dia
vi uma rotina para enviar e-mail conforme abaixo, porem no final aponta para oMail:Send() ou seja monta o email e envia automaticamente, existe alguma forma por exemplo ao invés de enviar apenas abrir o email montado, tipo de oMail:Send() colocar no lugar oMail:Open()
oOutLook := CreateObject("Outlook.Application")
oMail := oOutLook:CreateItem(0)
oRecip:= oMail:Recipients
oRecip:Add( EMAIL_PARA )
oMail:Cc := EMAIL_COPIA
oAdjunto:=oMail:Attachments
oAdjunto:Add( GETPROPERTY( "FORM_ENVIAR_EMAIL","LIBANEXAR","ITEM",XX ) )
oMail:Subject := FORM_ENVIAR_EMAIL.TXTASSUNTO.VALUE
oMail:Body := FORM_ENVIAR_EMAIL.EDBCORPO.VALUE
oMail:Send()
Amparo
abraço
Reply all
Reply to author
Forward
0 new messages