TEXTO CAMPO MENSAGEM PARA EMAIL

JCM0867 05/04/2016 12:19:55
#460463
Olá Pessoal,
Mais uma dúvida sobre envio de email

Tenho seguinte situação:

...
[ô]Define o formato do e-mail HTML (caso não queira HTML alocar valor false)
objEmail.IsBodyHtml = True

[ô]Define o título do e-mail.
objEmail.Subject = [Ô]Teste de envio de emails usando System.Net.Mail em VB.NET[Ô]

[ô]Define o corpo do e-mail.
objEmail.Body = [txt-color=#e80000][Ô]<b>Teste de envio de emails usando System.Net.Mail em VB.NET</b>[Ô] [/txt-color]
...

Como faço para inserir um texto do Word, richtext ou HTML, na parte em vermelho para que o sistema monte a mensagem do email?
Já tenho um texto todo bonitinho no word e agora como colo no email?
Ainda tem a situação de colocar uma imagem no topo.

Grato
MOUSER 05/04/2016 13:39:04
#460468
O texto (Corpo) do e-mail, tem que ser o texto do Word? Pois da para alternar o arquivo Word em um anexo vinculado ao e-mail, no texto (Corpo) pode ser utilizado um textbox (Normalmente usado), e criar um campo para anexar o caminho do Arquivo de anexo. Esse é uma alternativa mais viável que eu conheço. Mais rápido também pois creio eu que muitos preferem anexar por motivo de configuração do texto, posicionamento da pagina, e transportar essa configuração para o corpo do e-mail em VB.Net é muito mais trabalhoso do que colocar o mesmo texto do word no formulário, mas não digo que é impossível, só é um pouco mais trabalhoso.
JCM0867 05/04/2016 19:05:32
#460511
Fiz assim, é quase uma gambiarra, Imagem de cabeçalho mas texto simples de um textbox

ConteudoMensagem = Replace(Texto.text, Chr(13), [Ô]<br />[Ô])

objEmail.Body = [Ô]<img src=[ô]C:\Cesc40\Imagens\Logo Etapa2.jpg[ô]>[Ô] & [Ô]<br />[Ô] & [Ô]<br />[Ô] &
[Ô]<body>[Ô] + ConteudoMensagem & [Ô]</body>[Ô]
KERPLUNK 05/04/2016 20:46:05
#460522
Para que as imagens sejam visualizadas no e-mail, elas também devem ser enviadas no e-mail. E no HTML coloque apenas o nome do arquivo.
JCM0867 06/04/2016 08:37:54
#460550
Tu diz para colocar a imagem como anexo?
Suspeitei disso pois o destinatário não possui o caminho
KURTGU 06/04/2016 09:19:48
#460557
Resposta escolhida
Citação:

:
Tu diz para colocar a imagem como anexo?
Suspeitei disso pois o destinatário não possui o caminho



e mais simples do que voce pode imaginar, voce pode upar no imgur ou outro site de imagem assim voce so coloca o link eu faco isso...

sMensagem = [Ô]<table>[Ô]
sMensagem += [Ô] <tr>[Ô]
sMensagem += [Ô] <td>[Ô]
sMensagem += [Ô] <img src=[Ô] & [Ô]http://i.imgur.com/rw7uf.png>
sMensagem += [Ô] </td>[Ô]
sMensagem += [Ô] <td valign=[ô]middle[ô]>[Ô]
sMensagem += [Ô] Foi efetuado um cadastro no sistema V-Games esse email e só uma confirmação, se você não efetuou nenhum cadastro desconsidere esta mensagem... [Ô]
sMensagem += [Ô]Codigo Confirmação: [Ô] & Captcha
sMensagem += [Ô] </td>[Ô]
sMensagem += [Ô] </tr>[Ô]
sMensagem += [Ô]</table>[Ô]

cadastro.rtbMensagem.Text = sMensagem



O meu email no final fica desta forma...

JCM0867 06/04/2016 11:10:24
#460568
Não funcionou. coloquei o link da imagem e na visualização do email aparece um X ao invés da imagem.

Uma ultima dúvida,
quando vou enviar um email usando gmail, algumas contas funcionam e outras não e diz que foi impedido com essa menssagem

Olá Júlio C.,
Alguém acabou de tentar fazer login na sua Conta do Google jcm0867@gmail.com de um aplicativo que não atende aos padrões de segurança modernos.
Detalhes:
quarta-feira, 6 de abril de 2016 10:06 (Horário Padrão de Brasília)
Joinville - SC, Brasil*
Recomendamos que você use um aplicativo seguro, como o Gmail, para acessar sua conta. Todos os aplicativos desenvolvidos pelo Google atendem a esses padrões de segurança. Por outro lado, o uso de um aplicativo menos seguro pode deixar sua conta vulnerável. Saiba mais.

O Google interrompeu esta tentativa de login, mas você deve revisar seus dispositivos usados recentemente:

O que posso fazer?
KURTGU 06/04/2016 11:23:36
#460570
Citação:

:
Não funcionou. coloquei o link da imagem e na visualização do email aparece um X ao invés da imagem.

Uma ultima dúvida,
quando vou enviar um email usando gmail, algumas contas funcionam e outras não e diz que foi impedido com essa menssagem

Olá Júlio C.,
Alguém acabou de tentar fazer login na sua Conta do Google jcm0867@gmail.com de um aplicativo que não atende aos padrões de segurança modernos.
Detalhes:
quarta-feira, 6 de abril de 2016 10:06 (Horário Padrão de Brasília)
Joinville - SC, Brasil*
Recomendamos que você use um aplicativo seguro, como o Gmail, para acessar sua conta. Todos os aplicativos desenvolvidos pelo Google atendem a esses padrões de segurança. Por outro lado, o uso de um aplicativo menos seguro pode deixar sua conta vulnerável. Saiba mais.

O Google interrompeu esta tentativa de login, mas você deve revisar seus dispositivos usados recentemente:

O que posso fazer?



voce precisa da permisao para a conta acessar aplicativos externamente...

support.google.com/accounts/answer/6010255?hl=pt-BR
NILSONTRES 06/04/2016 11:23:38
#460571
Aqui um exemplo:
Private Sub EnviaEmail()
Try
Dim oSMTP As New SmtpClient(Me.txtServidorSMTP.Text)
Dim V_MAIL As New System.Text.StringBuilder

Dim ii As Integer = 0
For ii = 0 To GRID_EMAIL.RowCount - 1

If GRID_EMAIL.Rows(ii).Cells(3).Value = [Ô]þ[Ô] Then
Dim oMail As New MailMessage()
oMail.From = New MailAddress(LCase(txtOrigem.Text).Trim)
oMail.Subject = Me.txtAssunto.Text
oMail.To.Add(Replace(GRID_EMAIL.Rows(ii).Cells(1).Value, [Ô],[Ô], [Ô][Ô]).Trim)

If lstAnexos.Items.Count > 0 Then
For i = 0 To lstAnexos.Items.Count - 1

oMail.Attachments.Add(New Attachment(lstAnexos.Items(i)))
Next
End If

oMail.Body = New StreamReader(LBL_IMG.Text).ReadToEnd()
oSMTP.Timeout = 1000
oSMTP.Credentials = New System.Net.NetworkCredential(LCase(txtOrigem.Text).Trim, TXT_SENHA.Text.Trim)

If LBL_IMG.Text <> [Ô][Ô] Then
Dim body As String = [Ô]<img src=[Ô][Ô]cid:Imagem1[Ô][Ô] /><br>[Ô]
Dim view As AlternateView = AlternateView.CreateAlternateViewFromString(body, Nothing, MediaTypeNames.Text.Html)
Dim resource As New LinkedResource(LBL_IMG.Text)
resource.ContentId = [Ô]Imagem1[Ô]
view.LinkedResources.Add(resource)
oMail.AlternateViews.Add(view)
End If

oSMTP.Send(oMail)
System.Windows.Forms.Application.DoEvents()
LBL_MAIL_ENVIADO.Text = [Ô]Enviado para: [Ô] & GRID_EMAIL.Rows(ii).Cells(1).Value()
LBL_PERCENT.Text = [Ô]Total: [Ô] & GRID_EMAIL.RowCount - 1 & [Ô] - Enviados: [Ô] & ii + 1
End If
Next ii

MsgBox([Ô]mensagen enviada.[Ô], MsgBoxStyle.Information, [Ô]OK[Ô])

Catch exc As Exception
MsgBox(exc.ToString & vbCrLf & vbCrLf & [Ô]Erro Numero : => [Ô] & Err.Number, MsgBoxStyle.Critical, [Ô]ERRO[Ô])

End Try
End Sub

LBL_IMG traz o caminho da imagem.
JCM0867 06/04/2016 12:08:01
#460578
Citação:

voce precisa da permisao para a conta acessar aplicativos externamente...

support.google.com/accounts/answer/6010255?hl=pt-BR




Funcionou KURTGU.
vou fazer mais uns testes com o imgur

valeu, muito obrigado
JCM0867 07/04/2016 10:57:32
#460663
KURTGU, descobri uma maneira de fixar a imagem no corpo do email sem link da internet ou anexar a imagem

inserindo esse Bloco de códigos na hora de carregar o texto e a imagem:

Imports System.Net.Mail

Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString([Ô]<img src=cid:companylogo> <p> <class=[ô]body[ô]>[Ô] + ConteudoMensagem + [Ô]</div>[Ô], Nothing, [Ô]text/html[Ô])

Dim LogoCabecalho As New LinkedResource(Cabecalho)
LogoCabecalho.ContentId = [Ô]companylogo[Ô]
htmlView.LinkedResources.Add(LogoCabecalho)
objEmail.AlternateViews.Add(htmlView)

O restarde fica igual

quando estiver bem afinado meu programa de emails, eu coloco aqui no [txt-color=#0000f0]Código com fonte[/txt-color]
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas