Perguntas enviar email com arquivo anexado

Vera segue uma função com exemplo de envio de anexo, no parametro anexo vc passa o local e nome do arquivo.

por exemplo 'orcamento.pdf'


U_EnvMail('Orcamento', 'segue orcamento tralallalaal', 'Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.', '', 'orcamento.pdf', Nil, Nil)

User Function EnvMail(_cSubject, _cBody, _cMailTo, _cCC, _cAnexo, _cConta, _cSenha)
Local _cMailS := GetMv("MV_RELSERV")
Local _cAccount := IIf(_cConta=Nil,GetMV("MV_RELACNT"),_cConta)
Local _cPass := IIf(_cSenha=Nil,GetMV("MV_RELPSW"),_cSenha)
Local _cSenha2 := GetMV("MV_RELPSW")
Local _cUsuario2 := GetMV("MV_RELACNT")
Local lAuth := GetMv("MV_RELAUTH",,.F.)

ConOut("Enviando e-mail - " + _cSubject + " - para " + _cMailTo)

Connect Smtp Server _cMailS Account _cAccount Password _cPass RESULT lResult

If lAuth // Autenticacao da conta de e-mail
lResult := MailAuth(_cUsuario2, _cSenha2)
If !lResult
ConOut("Nao foi possivel autenticar a conta - " + _cUsuario2)
Return()
EndIf
EndIf

_xx := 0

lResult := .F.

do while !lResult

If !Empty(_cAnexo)
Send Mail From _cAccount To _cMailTo CC _cCC Subject _cSubject Body _cBody ATTACHMENT _cAnexo RESULT lResult
Else
Send Mail From _cAccount To _cMailTo CC _cCC Subject _cSubject Body _cBody RESULT lResult
Endif

_xx++
if _xx > 2
Exit
Else
Get Mail Error cErrorMsg
ConOut(cErrorMsg)
EndIf
EndDo

Return

José tenta usar este exemplo, nele você poderá informar qual a porta de envio no smtp.

User Function MHDEnvMail(cDe,cPara,cAssunto, cCorpo)
local oServer := Nil
local oMessage := Nil
local nErr := 0


local cPopAddr := AllTrim(GETMV("MV_MHDSPO")) // Endereco do servidor POP3
local cSMTPAddr := Iif(!Empty(AllTrim(GETMV("MV_MHDSTP"))),AllTrim(GETMV("MV_MHDSTP")),AllTrim(GETMV("MV_RELSERV"))) // Endereco do servidor SMTP
local cPOPPort := Val(GETMV("MV_MHDPPO")) // Porta do servidor POP
local cSMTPPort := Val(GETMV("MV_MHDPSM")) // Porta do servidor SMTP
local cUser := Iif(!Empty(AllTrim(GETMV("MV_CMEMAS"))),AllTrim(GETMV("MV_CMEMAS")),AllTrim(GetMV("MV_RELACNT"))) // Usuario que ira realizar a autenticacao
local cPass := Iif(!Empty(AllTrim(GetMV("MV_CMEMPS"))),AllTrim(GetMV("MV_CMEMPS")),AllTrim(GETMV("MV_RELAPSW"))) // Senha do usuario
local nSMTPTime := 60 // Timeout SMTP

Private cTabCham := GetMV("MV_MHDCHA") // Alias tabela de Chamados
Private cCmpCha := Right(cTabCham,2)


// Instancia um novo TMailManager
oServer := tMailManager():New()

// Usa SSL na conexao
oServer:setUseSSL(GetMv("MV_RELAUTH",,.F.))

// oServer:SetUseTLS(.t.)

// Inicializa
oServer:init(cPopAddr, cSMTPAddr, cUser, cPass, cPOPPort, cSMTPPort)

// Define o Timeout SMTP
if oServer:SetSMTPTimeout(nSMTPTime) != 0
Alert("[ERROR]Falha ao definir timeout")
return .F.
endif

// Conecta ao servidor
nErr := oServer:smtpConnect()
if nErr <> 0
Alert("[ERROR]Falha ao conectar: " + oServer:getErrorString(nErr))
oServer:smtpDisconnect()
return .F.
endif

// Realiza autenticacao no servidor
nErr := oServer:smtpAuth(cUser, cPass)
if nErr <> 0
Alert("[ERROR]Falha ao autenticar: " + oServer:getErrorString(nErr))
oServer:smtpDisconnect()
return .F.
endif

// Cria uma nova mensagem (TMailMessage)
oMessage := tMailMessage():new()
oMessage:clear()
oMessage:cFrom := cDe //"Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo."
oMessage:cTo := cPara //"Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo."
// oMessage:cCC := "Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo."

// Manda Email para Mim Com até 10 Chamados Registrados

If (cTabCham)->(RecCount()) <= 10
oMessage:cBCC := "Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo."
Endif
oMessage:cSubject := cAssunto //"Assunto"
oMessage:cBody := cCorpo //"Corpo do e-mail"

// Envia a mensagem
nErr := oMessage:send(oServer)
if nErr <> 0
Alert("[ERROR]Falha ao enviar: " + oServer:getErrorString(nErr))
oServer:smtpDisconnect()
return .F.
endif

// Disconecta do Servidor
oServer:smtpDisconnect()

return .T.