Envio de email com replyto (TSMPT)

[nilton579]

Bom-dia!

Gostaria de saber se tem como definir um replyto utilizando o exemplo SendMail (TSMPT). Já coloquei a cláusula e dá erro. Consultei uma documentação online do harbour e lá consta a propriedade.
Tentei o BlatMail mas, apesar de informar que a mensagem foi enviada, ela nunca chega.
Alguém poderia me ajudar?

Utilizando Harbour MiniGUI Extended Edition 16.02 + BCC55

[Toledo]

Amigo, dê um exemplo do código que você está usando SendMail e também qual é a mensagem de erro que retorna.

Abraços

[nilton579]

Código: Selecionar todos

oSocket := TSMTP():New() 

   IF oSocket:Connect( cSMTP, nPort ) 
   
      i := At("<", cFrom) 
      IF i > 0 
         cUser := Chr(34) + Alltrim(Left(cFrom, i-1)) + Chr(34) 
         cFrom := Substr(cFrom, i+1, Len(cFrom)-i-1) 
      ENDIF 

      i := At("<", cTo) 
      IF i > 0 
         cTo := Substr(cTo, i+1, Len(cTo)-i-1) 
      ENDIF 
      
      i := At("<", cCC) 
      IF i > 0 
         cCC := Substr(cCC, i+1, Len(cCC)-i-1) 
      ENDIF 
      
      oSocket:ClearData() 
      oSocket:SetPriority( 3 )

      oSocket:SetFrom( cUser, "<"+ cFrom +">") 

      oSocket:AddTo( cUser, "<"+ cTo +">" ) 
      oSocket:AddCc( cUser,"<"+ cCC +">" )
          
      oSocket:SetSubject( cSubject ) 
      oSocket:AddAttach(oform.txt_anexo.value)
      oSocket:SetData( cMsgBody, .f. )
      
      IF var03 && Requer autenticacao
         IF var04 && Senha no formato MD5
            IF ! oSocket:LoginMD5( cUserID, cPassWord ) 
               
               MsgStop( oSocket:GetLastError(), "Ocorreu um erro ao tentar logar no servidor SMTP" ) 
               sucesso := .f.
               oSocket:Close() 
               
            ENDIF 
         ELSEIF ! oSocket:Login( cUserID, cPassWord ) 
            
            MsgStop( oSocket:GetLastError(), "Ocorreu um erro ao tentar logar no servidor SMTP" ) 
            sucesso := .F.
            oSocket:Close() 
            
         ENDIF 
      ENDIF 

      IF ! oSocket:Send(.T.) 
         
         MsgStop( oSocket:GetLastError(), "Ocorreu um erro ao tentar logar no servidor SMTP" ) 
         sucesso := .f.
         oSocket:Close() 
         
      ENDIF 
      
      oSocket:Close()

Se incluo a cláusula oSocket:SetReplyTo(cUser,"<"+cEmailReply+">"), ocorre o erro:
Error BASE/1004 MEssage not found: TSMTP:SETREPLYTO

[Toledo]

Utilizando Harbour MiniGUI Extended Edition 16.02 + BCC55

O metodo SetReplyTo só foi incluído na Harbour MiniGUI Extended Edition 16.11.

Se incluo a cláusula oSocket:SetReplyTo(cUser,"<"+cEmailReply+">"), ocorre o erro:

O SetReplyTo só tem um parâmetro, então o correto é: oSocket:SetReplyTo("<"+cEmailReply+">").

Abraços,

[nilton579]

Perfeitamente, seu Toledo. Atualizei e funcionou!!
Obrigado pela dica!