Genexus

Bom dia Felipe

eu estou usando o modelo baixado do Community Wiki: http://wiki.gxtechnical.com/commwiki/servlet/hwiki?Exemplo+de+envio+de+e-mail,

Event Enter

    // Limpa destinos da mensagem

    &MailMessage.To.Clear()

    &MailMessage.CC.Clear()

    &MailMessage.BCC.Clear()

   

    // Adiciona endereço Para

    &MailRecipient.Address = trim(&To)

    &MailRecipient.Name = trim(&To)

    &MailMessage.To.Add(&MailRecipient)

 

    // Adiciona endereço Com Cópia

    &MailRecipient.Address = trim(&CC)

    &MailRecipient.Name = trim(&CC)

    &MailMessage.CC.Add(&MailRecipient)

 

    // Adiciona endereço Com Cópia Oculta

    //&MailRecipient.Address = trim(&Bcc)

    //&MailRecipient.Name = trim(&Bcc)

    //&MailMessage.BCC.Add(&MailRecipient)

 

    // Assunto

    &MailMessage.Subject = &Subject

 

    // Limpar anexos

    &MailMessage.Attachments.Clear()

 

    // Corpo do e-mail

    // ---------------------------------------------

    // O Windows XP SP2 e o Office 2003 introduziram um bloqueio.

    // Não é mais permitido enviar imagens como Links. Desta forma é obrigatório

    // envia-las como anexo no e-mail.

    // Para isso você NÃO PODE mais incluir o &WebWrapper.BaseURL em nenhuma parte de seu código.

    // A imagem na WebPanel que será enviada não pode ter nenhum caminho, ou seja, NÃO

    // pode ser algo como :

    // - http://www.servidor.com.br/Areia.bmp

    // - /Areia.bmp

    // - Imagem/Areia.bmp

    // Deve conter somente o nome da imagem, ou seja Areia.bmp

 

    &WebWrapper.Object = Create(HMailFormato, &TextMsg) // Carrega o Objeto no WebWrapper

    &MailMessage.HTMLText = &WebWrapper.GetResponse() // Pega o HTML da WebPanel

    &MailMessage.Attachments.Add('C:\Areia.bmp') // Adiciona no e-mail imagens, como logos.

 

    // O diretório 'C:\Get\' está no servidor e NÃO no computador onde a aplicação

    // está sendo executada (Em Ambientes Web)

    &SMTPSession.AttachDir = 'C:\Get\'

 

    If Not Null(&Anexo)

        &MailMessage.Attachments.Add(&Anexo)

    Endif

    If Not Null(&Anexo1)

        &MailMessage.Attachments.Add(&Anexo1)

    Endif

    If Not Null(&Anexo2)

        &MailMessage.Attachments.Add(&Anexo2)

    Endif

    If Not Null(&Anexo3)

        &MailMessage.Attachments.Add(&Anexo3)

    Endif

 

    // Configura SMTP

    &SMTPSession.Sender.Name='Diego Teste'//'Quem enviou...'

    &SMTPSession.Sender.Address='digoferreira110@gmail.com'//'meu@email.com.br'

 

    // Conexão com o servidor

    &SMTPSession.Authentication =1

   

    &SMTPSession.Host = trim('smtp.gmail.com')//('host')

      //&SMTPSession.Port = 25

    &SMTPSession.UserName = trim('digoferreira110@gmail.com')

    &SMTPSession.Password = trim('xxxxxxxx')

 

    // Faz Login

    &SMTPSession.Login()

    If &SMTPSession.ErrCode <> 0

        Msg(&SMTPSession.ErrDescription)

    Else

        // Envia realmente

        &SMTPSession.send(&MailMessage)

        If &SMTPSession.ErrCode <> 0

            Msg(&SMTPSession.ErrDescription)

        Else

            Msg('Mensagem enviada.')

        Endif

        &SMTPSession.Logout()

    Endif

EndEvent  // Enter

 

Event 'Para'

 

EndEvent  // 'Para'

 

Event 'CC'

 

EndEvent  // 'CC'

 

---

Date: Thu, 7 Mar 2013 09:10:11 -0300
From: felipesouzar@gmail.com
To: gx-l@gxtech.com.uy
CC: internet-l@gxtech.com.uy
Subject: Re: FW: [gx-l] erro ao usar aplicação para envio de email

Bom Dia,

Eu envio e-mail através destes passos aqui, as vezes sua rotina pode estar faltando o Timeout ou então mudar o Athentication, ou ainda a dizer qual porta usar para conectar.

Att,

&MailRecipient.Address = &ClientesEmail.Trim()

&MailRecipient.Name = &Sdt_Login.UserName

&MailMessage.To.Clear()

&MailMessage.To.Add(&MailRecipient)

&MailMessage.Subject = 'ASSUNTO'

Do 'GetHost'

&SMTPSession.Host = &WebParamHost

&SMTPSession.Authentication = &WebParamAuthentication

&SMTPSession.Port = &WebParamPort

&SMTPSession.UserName = &WebParamUserName

&SMTPSession.Password = &WebParamPassword

&SMTPSession.Sender.Address = &WebParamSenderAddress

&SMTPSession.Sender.Name = &WebParamSenderName

&SMTPSession.Timeout = 3

//Montar E-Mail

&Err = &SMTPSession.Login()

If &SMTPSession.ErrCode <> 0

MSG('Falha no Login')

MSG(&SMTPSession.ErrCode + &SMTPSession.ErrDescription)

&Mensagem = 'Erro no Login'

Else

        &Mensagem = 'Login OK'

//Pega o Pedido

&WebWrapper.Object = ConsultaPedido.Create(&ID)

//Add o Pedido ao corpo do texto

&MailMessage.Text = 'Texto: '

&MailMessage.HTMLText = &WebWrapper.GetResponse()

//Envia o E-Mail

&SMTPSession.Send(&MailMessage)

If &SMTPSession.ErrCode <> 0

&Mensagem = &SMTPSession.ErrDescription

Else

&Mensagem2 = 'Mensagem Enviada'

EndIf 

&SMTPSession.Logout()

EndIf 

Sub 'GetHost'

For Each

&WebParamHost = WebParamHost

&WebParamAuthentication = WebParamAuthentication

&WebParamPort = WebParamPort

&WebParamUserName = WebParamUserName

&WebParamPassword = WebParamPassword

&WebParamSenderAddress = WebParamSenderAddress

&WebParamSenderName = WebParamSenderName

EndFor

EndSub

Em 7 de março de 2013 08:16, Diego Ferreira <drf_ferreira@hotmail.com> escreveu:

baixei um exemplo de aplicação para envio de email, fiz as configurações de smtp, email, e senha mas quando executo a web panel

e confirmo o envio do email aparece o seguinte erro.

555 5.5.2 Syntax error.g6sm583935gav.6 - gsmtp.

O que seria este erro e qual a solução?

Application Header                                   English | Español | Português First Option  Second Option Third Option  Fourth Option Recents:  Mail Web | 555 5.5.2 Syntax error. g6sm583935qav.6 - gsmtp Text Block Text Block

--
Felipe de Souza Rodrigues

Universidade de São Paulo

Sistemas de Informação - USP/EACH
felipesouzar@gmail.com

Skype: felipe.souza.rodrigues