TEXTO CAMPO MENSAGEM PARA EMAIL
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
ConteudoMensagem = Replace(Texto.text, Chr(13), [Ô]<br />[Ô])
objEmail.Body = [Ô]<img src=[ô]C:\Cesc40\Imagens\Logo Etapa2.jpg[ô]>[Ô] & [Ô]<br />[Ô] & [Ô]<br />[Ô] &
[Ô]<body>[Ô] + ConteudoMensagem & [Ô]</body>[Ô]
Suspeitei disso pois o destinatário não possui o caminho
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...
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?
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
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.
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
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]