none
Duas linhas no email RRS feed

  • Pergunta

  • Uso esse codigo pra enviar os dados de datagrid por email

    .UnRead = True
    
                .To = "rafael.nogueira@eum.com.br" 'Me.DGDbtc.Item(11)
    
                .Subject = "TESTE DE ENVIO"
    
                .Body = "Código||" + DGDbtc.CurrentRow.Cells(0).Value.ToString + "||" + "  Tipo||" + DGDbtc.CurrentRow.Cells(1).Value.ToString + "||" + "  Contrato||" + DGDbtc.CurrentRow.Cells(3).Value.ToString + "||" + "  Abertura||" + DGDbtc.CurrentRow.Cells(4).Value.ToString + "||" + "  Doarev||" + DGDbtc.CurrentRow.Cells(5).Value.ToString + "||"
    
                .Send()

    Mas se usar assim fica muito extenso porque são 11 colunas, tem como eu colocar duas linhas? ou mandar os dados para uma planilha e anexar ela no email ou tem como formatar o corpo do email já assim?


    • Editado RJCERRI segunda-feira, 3 de junho de 2013 20:55
    segunda-feira, 3 de junho de 2013 20:12

Respostas

  • Desisto, deixei assim  :(

     On Error GoTo fechar
            Dim oOutL As Outlook.Application
            Dim oMail As Outlook._MailItem
            oOutL = CType(CreateObject("Outlook.Application"), Outlook.Application)
            oMail = CType(oOutL.CreateItem(Outlook.OlItemType.olMailItem), Outlook._MailItem)
    
            Dim texto As String
            texto = "<b> Código||" + DGDbtc.CurrentRow.Cells(0).Value.ToString + " ||" + "   Tipo||" + DGDbtc.CurrentRow.Cells(1).Value.ToString + " ||" + "  Contrato||" + DGDbtc.CurrentRow.Cells(3).Value.ToString + " ||" + "  Abertura|| " + DGDbtc.CurrentRow.Cells(4).Value.ToString + " ||" + " Doarev||" + DGDbtc.CurrentRow.Cells(5).Value.ToString + "||</b><br>" & Environment.NewLine & _
            " <b> Vencimento|| " + DGDbtc.CurrentRow.Cells(6).Value.ToString + " ||" + "  Carência||" + DGDbtc.CurrentRow.Cells(7).Value.ToString + " ||" + "  Qtd||" + DGDbtc.CurrentRow.Cells(8).Value.ToString + " ||" + "  Preço de Liq.|| " + DGDbtc.CurrentRow.Cells(9).Value.ToString + " ||" + " Taxa %||" + DGDbtc.CurrentRow.Cells(10).Value.ToString + " ||.<br>" & Environment.NewLine & _
            "Este é um e-mail de teste e foi enviado pelo Outlook.<br>" & Environment.NewLine & _
            "Até mais!"
    
            With oMail
    
                .UnRead = True
    
                .To = "rafael.nogueira@eum.com.br" 'Me.DGDbtc.Item(11)
    
                .Subject = "TESTE DE ENVIO"
    
                .HTMLBody = texto
    
                .Send()
    
            End With
            oOutL = Nothing
            oMail = Nothing
    fechar:
            If Err.Number = 0 Then
                MsgBox("Uma copia do relatorio foi enviado com Sucesso!", MsgBoxStyle.Exclamation, "TI - Um INvestimentos")
            Else
                MsgBox("O Relatorio nao pode ser enviado.")
            End If
            Err.Number = 0

    • Marcado como Resposta RJCERRI quinta-feira, 13 de junho de 2013 14:55
    quinta-feira, 13 de junho de 2013 14:54

Todas as Respostas

  • Galera eu to perguntando alguma besteira? É a primeira vez que to fazendo isso.
    quinta-feira, 6 de junho de 2013 14:02
  • Para colocar em duas linhas é fácil...

    Vamos lá,

    1º Passo - BodyIsHtml = true (Deixar o texto no formato html)

    2º Passo - <br> (Quebra de linha)

    E a outra forma você pegar este exemplo aqui e alterar para sua necessidade.

    http://social.msdn.microsoft.com/Forums/pt-BR/vscsharppt/thread/a162e92a-010c-415b-a7d0-8e6b8b60afa3


    Se For Util, Classifique como Util... Se Resolver Seu Problema, Maque Como Resposta! Fazendo Isto, Você pode ajudar outras pessoas com o mesmo problema!

    sexta-feira, 7 de junho de 2013 12:16
  • Obrigado Felipe, mas não estou conseguindo usar a dica do bodyishtml, não habilita essa propriedade pra mim. Vocêr pode me ajudar.

      On Error GoTo fechar
            Dim oOutL As Outlook.Application
            Dim oMail As Outlook._MailItem
    
            oOutL = CType(CreateObject("Outlook.Application"), Outlook.Application)
            oMail = CType(oOutL.CreateItem(Outlook.OlItemType.olMailItem), Outlook._MailItem)
    
            With oMail
    
    SERIA AQUI EU TERIA QUE USAR O BODYISHTML?
                .UnRead = True
    
                .To = "rafa@eum.com.br" 'Me.DGDbtc.Item(11)
    
                .Subject = "TESTE DE ENVIO"
    
                .Body = "Código||" + DGDbtc.CurrentRow.Cells(0).Value.ToString + "||" + "  Tipo||" + DGDbtc.CurrentRow.Cells(1).Value.ToString + "||" + "  Contrato||" + DGDbtc.CurrentRow.Cells(3).Value.ToString + "||" + "  Abertura||" + DGDbtc.CurrentRow.Cells(4).Value.ToString + "||" + "  Doarev||" + DGDbtc.CurrentRow.Cells(5).Value.ToString + "||"
    
    
                .Send()
    
            End With
            oOutL = Nothing
            oMail = Nothing



    • Editado RJCERRI quarta-feira, 12 de junho de 2013 13:18 editar email
    segunda-feira, 10 de junho de 2013 14:28
  • Não sei mais o que fazer, procurei pra caramba e em todos os lugares vejo a galera falando que tem que mostrar que o email vai ser em HTML, fazendo assim

    omail.IsBodyHtml = true;

    Mas esse comando nem esta habilitado e não consigo fazer, alguem pode me ajudar só achei exemplos em c# preciso disso pro vb.net

    terça-feira, 11 de junho de 2013 15:26
  • Achei isso  aqui

     'create the mail message
    Dim mail As New MailMessage()
    
    'set the addresses
    mail.From = New MailAddress("me@mycompany.com")
    mail.To.Add("you@yourcompany.com")
    
    'set the content
    mail.Subject = "This is an email"
     mail.Body = "this is a sample body with html in it. <b>This is bold</b> <font color=#336699>This is blue</font>"
    mail.IsBodyHtml = True
    
    'send the message
    Dim smtp As New SmtpClient("127.0.0.1")
    smtp.Send(mail)

    mas o puto do isbodyhtml não aparece no meu codigo, não fica habilitado

    terça-feira, 11 de junho de 2013 20:04
  • Fiz essas mudanças e agora o isbodyhtml funcionou, mas esta dando erro do envio, acho que é no .to, alguem pode me ajudar?

     On Error GoTo fechar
            Dim oOutL As Outlook.Application
            'Dim oMail As Outlook._MailItem
    
            oOutL = CType(CreateObject("Outlook.Application"), Outlook.Application)
            'oMail = CType(oOutL.CreateItem(Outlook.OlItemType.olMailItem), Outlook._MailItem)
            Dim oMail As New MailMessage
    
            With oMail
    
                '.UnRead = True
    
                oMail.From = New MailAddress("mc@uminvestimentos.com.br")
    
                oMail.To.Add("rafa@eum.com.br") 'Me.DGDbtc.Item(11)
    
                oMail.Subject = "TESTE DE ENVIO DE RELATORIO"
    
                oMail.Body = "Código||" + DGDbtc.CurrentRow.Cells(0).Value.ToString + "||" + "  Tipo||" + DGDbtc.CurrentRow.Cells(1).Value.ToString + "||" + "  Contrato||" + DGDbtc.CurrentRow.Cells(3).Value.ToString + "||" + "  Abertura||" + DGDbtc.CurrentRow.Cells(4).Value.ToString + "||" + "  Doarev||" + DGDbtc.CurrentRow.Cells(5).Value.ToString + "||"
    
                '.Body = <br></br>
    
                oMail.Body = "Vencimento||" + DGDbtc.CurrentRow.Cells(6).Value.ToString + "||" + "  Carência||" + DGDbtc.CurrentRow.Cells(7).Value.ToString + "||" + "  Qtd||" + DGDbtc.CurrentRow.Cells(8).Value.ToString + "||" + "  Preço de Liq.||" + DGDbtc.CurrentRow.Cells(9).Value.ToString + "||" + "  Taxa %||" + DGDbtc.CurrentRow.Cells(10).Value.ToString + "||"
    
                oMail.IsBodyHtml = True
    
                Dim smtp As New SmtpClient("smtp-rj.eum.com.br") '189.112.80.5")
                smtp.Send(oMail)
    
    
            End With
            oOutL = Nothing
            oMail = Nothing
    fechar:
            If Err.Number = 0 Then
                MsgBox("Uma copia do relatorio foi enviado com Sucesso!", MsgBoxStyle.Exclamation, "TI - Um INvestimentos")
            Else
                MsgBox("O Relatorio nao pode ser enviado.")
            End If
            Err.Number = 0


    • Editado RJCERRI quarta-feira, 12 de junho de 2013 13:17 editar o email
    terça-feira, 11 de junho de 2013 20:42
  • Achei esse exemplo mas esta dando um erro antes de executar, to perdidão nisso.

     Dim texto As String
            texto = "<b> Código|| + DGDbtc.CurrentRow.Cells(0).Value.ToString + || +   Tipo|| + DGDbtc.CurrentRow.Cells(1).Value.ToString + || +   Contrato|| + DGDbtc.CurrentRow.Cells(3).Value.ToString + || +   Abertura|| + DGDbtc.CurrentRow.Cells(4).Value.ToString + || +   Doarev|| + DGDbtc.CurrentRow.Cells(5).Value.ToString + ||</b><br>" & Environment.NewLine & _
            "Vencimento|| + DGDbtc.CurrentRow.Cells(6).Value.ToString + || +   Carência|| + DGDbtc.CurrentRow.Cells(7).Value.ToString + || +   Qtd|| + DGDbtc.CurrentRow.Cells(8).Value.ToString + || +   Preço de Liq.|| + DGDbtc.CurrentRow.Cells(9).Value.ToString + || +   Taxa %|| + DGDbtc.CurrentRow.Cells(10).Value.ToString + ||.<br>" & Environment.NewLine & _
            "Este é um e-mail de teste e foi enviado pelo Outlook.<br>" & Environment.NewLine & _
            "Até mais!"
    
    
            Dim outLook As New Outlook.Application
            Dim mail As Outlook.MailItem
    
            mail = outLook.CreateItem(outLook.OlItemType.olMailItem)
            mail.UnRead = True
            mail.To = "rafa@eum.com.br"
            mail.CC = "marcelo@eum.com.br"
            mail.Subject = "Teste de Envio"
            mail.HTMLBody = texto
            mail.Send()
    
            MessageBox.Show("Enviado com sucesso!")


    • Editado RJCERRI quarta-feira, 12 de junho de 2013 18:43 email
    quarta-feira, 12 de junho de 2013 17:10
  • Consegui resolver esse problema colocando o option strict como off, mas agora ele mostra esse erro na liha

    Public member 'OlItemType' on type 'ApplicationClass' not found.

    quarta-feira, 12 de junho de 2013 17:34
  • Desisto, deixei assim  :(

     On Error GoTo fechar
            Dim oOutL As Outlook.Application
            Dim oMail As Outlook._MailItem
            oOutL = CType(CreateObject("Outlook.Application"), Outlook.Application)
            oMail = CType(oOutL.CreateItem(Outlook.OlItemType.olMailItem), Outlook._MailItem)
    
            Dim texto As String
            texto = "<b> Código||" + DGDbtc.CurrentRow.Cells(0).Value.ToString + " ||" + "   Tipo||" + DGDbtc.CurrentRow.Cells(1).Value.ToString + " ||" + "  Contrato||" + DGDbtc.CurrentRow.Cells(3).Value.ToString + " ||" + "  Abertura|| " + DGDbtc.CurrentRow.Cells(4).Value.ToString + " ||" + " Doarev||" + DGDbtc.CurrentRow.Cells(5).Value.ToString + "||</b><br>" & Environment.NewLine & _
            " <b> Vencimento|| " + DGDbtc.CurrentRow.Cells(6).Value.ToString + " ||" + "  Carência||" + DGDbtc.CurrentRow.Cells(7).Value.ToString + " ||" + "  Qtd||" + DGDbtc.CurrentRow.Cells(8).Value.ToString + " ||" + "  Preço de Liq.|| " + DGDbtc.CurrentRow.Cells(9).Value.ToString + " ||" + " Taxa %||" + DGDbtc.CurrentRow.Cells(10).Value.ToString + " ||.<br>" & Environment.NewLine & _
            "Este é um e-mail de teste e foi enviado pelo Outlook.<br>" & Environment.NewLine & _
            "Até mais!"
    
            With oMail
    
                .UnRead = True
    
                .To = "rafael.nogueira@eum.com.br" 'Me.DGDbtc.Item(11)
    
                .Subject = "TESTE DE ENVIO"
    
                .HTMLBody = texto
    
                .Send()
    
            End With
            oOutL = Nothing
            oMail = Nothing
    fechar:
            If Err.Number = 0 Then
                MsgBox("Uma copia do relatorio foi enviado com Sucesso!", MsgBoxStyle.Exclamation, "TI - Um INvestimentos")
            Else
                MsgBox("O Relatorio nao pode ser enviado.")
            End If
            Err.Number = 0

    • Marcado como Resposta RJCERRI quinta-feira, 13 de junho de 2013 14:55
    quinta-feira, 13 de junho de 2013 14:54