Perguntas comando de linha para atachar arquivo no outlook

Obrigado eu utilizava direto no siga, inclusive anexava no workflow, mas por razões procedimentais, preciso colocar no outlook.

Em 06/05/2011 08:32, dbuenosilva escreveu:

Bom dia,

Você pode enviar o e-mail com anexo diretamente da rotina advpl, sem precisar do Outlook:

//Parametros necessarios para a rotina
// MV_RELACNT - Conta a ser utilizada no envio de E-Mail
// MV_RELFROM - E-mail utilizado no campo FROM no envio
// MV_RELSERV - Nome do Servidor de Envio de E-mail utilizado no envio
// MV_RELAUTH - Determina se o Servidor de Email necessita de Autenticação
// MV_RELAUSR - Usuário para Autenticação no Servidor de Email
// MV_RELAPSW - Senha para Autenticação no Servidor de Email

cServer := GetMv("MV_RELSERV")
cAccount := GetMv("MV_RELACNT")
cPassword := GetMv("MV_RELAPSW")
cUserAut := GetMv("MV_RELAUSR")
cFrom := GetMv("MV_RELFROM")
cAssunto := "Teste"

CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword RESULT lOK

If !lOK
conout("Falha na Conexão com Servidor de E-Mail")
ENDIF

If !MailAuth(cUserAut,cPassword)
conout("Falha na Autenticacao do Usuario")
DISCONNECT SMTP SERVER RESULT lOk
EndIf

cEmailDes := "fulano@email.com"

SEND MAIL FROM cFrom TO cEmailDes SUBJECT cAssunto BODY xHTM ATTACHMENT cFile RESULT lOK

If !lOK
conout("Falha no Envio do E-Mail: "+ALLTRIM(cEmailDes))
ENDIF

DISCONNECT SMTP SERVER

Você poderá encontrar mais detalhe em: <!-- m --><a class="postlink" href=" tdn.totvs.com/kbm#14775 "> tdn.totvs.com/kbm#14775 </a><!-- m -->

Diego Bueno

--- Em <!-- e --><a href="Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.">Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.</a><!-- e -->, Antonio &lt;antoniomsbr@...&gt; escreveu
&gt;
&gt; Pessoal, existe um comando de linha para eu pegar um arquivo que gero no
&gt; protheus, colocá-lo no outlook como anexo já sugerindo o destinatário ?
&gt;