EVIAR EMAIL DO VB.NET ATRAVEZ DO OUTLOOK 2003
Boa Tarde
Desenvolvi uma aplicação em VB.net, coloquei um botão no fomulario onde eu clico e abre o outlok 2003 que estar instalado no computador, até ai eu consegui desenvolver. O problema é que não estou conseguindo jogar as informações formatadas com linhas e colunas no outlook. Quem poder me ajudar, mandando um exemplo eu agradeço.
Obrigado!
Desenvolvi uma aplicação em VB.net, coloquei um botão no fomulario onde eu clico e abre o outlok 2003 que estar instalado no computador, até ai eu consegui desenvolver. O problema é que não estou conseguindo jogar as informações formatadas com linhas e colunas no outlook. Quem poder me ajudar, mandando um exemplo eu agradeço.
Obrigado!
Para que abrir o Outlook se o vb pode fazer todas as funções dele ?
Private Sub EMAIL_ENVIA_P(ByVal _Anexo As String)
Try
Dim oMail As New MailMessage() [ô] Cria o Objeto de Email
Dim oSMTP As New SmtpClient(CBO_SMTP.Text)
oSMTP.Port = CBO_PORTA.Text.Trim
Dim V_MAIL As New System.Text.StringBuilder
My.Application.DoEvents()
oMail.From = New MailAddress(_EMAIL_SMTP)
oMail.To.Add(CBO_TO_P.Text.Trim.ToLower)
oMail.Priority = MailPriority.High
oMail.Subject = TXT_ASSUNTO_P.Text.Trim
oMail.Attachments.Add(New Attachment(_Anexo))
oMail.IsBodyHtml = True
oMail.Body = Replace(CBO_DEST_P.Text & [Ô],[Ô] & vbCrLf & TXT_MSG_P.Text.Trim, vbLf, [Ô]<BR>[Ô])
[ô]oMail.Body = New StreamReader(TXT_MSG.Text.Trim).ReadToEnd()
oSMTP.Timeout = 1000
oSMTP.Credentials = New System.Net.NetworkCredential(_EMAIL_SMTP, _SENHA_SMTP)
oSMTP.Send(oMail)
oMail.Dispose()
Me.Cursor = System.Windows.Forms.Cursors.Default
MsgBox([Ô]Arquivo Enviado com Sucesso[Ô], MsgBoxStyle.Exclamation, [Ô]AVISO[Ô])
Catch
Me.Cursor = System.Windows.Forms.Cursors.Default
MsgBox(Err.Description, MsgBoxStyle.Critical, [Ô]AVISO[Ô])
End Try
End Sub
Private Sub EMAIL_ENVIA_P(ByVal _Anexo As String)
Try
Dim oMail As New MailMessage() [ô] Cria o Objeto de Email
Dim oSMTP As New SmtpClient(CBO_SMTP.Text)
oSMTP.Port = CBO_PORTA.Text.Trim
Dim V_MAIL As New System.Text.StringBuilder
My.Application.DoEvents()
oMail.From = New MailAddress(_EMAIL_SMTP)
oMail.To.Add(CBO_TO_P.Text.Trim.ToLower)
oMail.Priority = MailPriority.High
oMail.Subject = TXT_ASSUNTO_P.Text.Trim
oMail.Attachments.Add(New Attachment(_Anexo))
oMail.IsBodyHtml = True
oMail.Body = Replace(CBO_DEST_P.Text & [Ô],[Ô] & vbCrLf & TXT_MSG_P.Text.Trim, vbLf, [Ô]<BR>[Ô])
[ô]oMail.Body = New StreamReader(TXT_MSG.Text.Trim).ReadToEnd()
oSMTP.Timeout = 1000
oSMTP.Credentials = New System.Net.NetworkCredential(_EMAIL_SMTP, _SENHA_SMTP)
oSMTP.Send(oMail)
oMail.Dispose()
Me.Cursor = System.Windows.Forms.Cursors.Default
MsgBox([Ô]Arquivo Enviado com Sucesso[Ô], MsgBoxStyle.Exclamation, [Ô]AVISO[Ô])
Catch
Me.Cursor = System.Windows.Forms.Cursors.Default
MsgBox(Err.Description, MsgBoxStyle.Critical, [Ô]AVISO[Ô])
End Try
End Sub
Obrigado pela dica. Só que eu preciso abrir o outlook porque além das informações que vem do VB os usuários da aplicação precisam digita no corpo do email do outlook.
Se você poder me ajudar jogar as informações formatadas com linhas e colunas no outlook.
Obrigado!
Se você poder me ajudar jogar as informações formatadas com linhas e colunas no outlook.
Obrigado!
Tenta esse link
https://sites.google.com/site/programacaoonline/family-blog/vb-net/envio-de-e-mail-pelo-outlook
https://sites.google.com/site/programacaoonline/family-blog/vb-net/envio-de-e-mail-pelo-outlook
Tópico encerrado , respostas não são mais permitidas