Genexus

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'