PC Toledo

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

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

Abraços

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

nilton579 escreveu:Utilizando Harbour MiniGUI Extended Edition 16.02 + BCC55

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

nilton579 escreveu: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,

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

PC Toledo

Envio de email com replyto (TSMPT)

Envio de email com replyto (TSMPT)

Envio de email com replyto (TSMPT)

Envio de email com replyto (TSMPT)

Envio de email com replyto (TSMPT)

Envio de email com replyto (TSMPT)