A1VBCode Forums

Email attachment


http://www.a1vbcode.com/vbforums/Topic32075.aspx

By eita_zuliana - 10/10/2013

Imports System

Imports System.Data

Imports System.Net.Mail

Public Class Form8

Implements IDisposable

Dim an As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

If From.Text = "" Or TxtTo.Text = "" Or BodyText.Text = "" Or Subject.Text = "" Then

MsgBox("Please Fill All Fields")

End If

Dim MyMailMessage As New MailMessage()

MyMailMessage.From = New MailAddress("tmlife@stardocs.net")

MyMailMessage.To.Add(TxtTo.Text)

MyMailMessage.Subject = "From: " + From.Text + "To: " + TxtTo.Text + "Subject:" + Subject.Text

MyMailMessage.Body = BodyText.Text

MyMailMessage.CC.Add("")

MyMailMessage.Bcc.Add("")

MyMailMessage.Subject = ""

'Create the SMTPClient object and specify the SMTP Mail server

Dim SMTPServer As SmtpClient = New SmtpClient

SMTPServer.Port = 587

SMTPServer.Credentials = New System.Net.NetworkCredential("tmlife", "TmLife123")

SMTPServer.EnableSsl = True

If TxtTo.Text = "" Then

Else

Dim oAttch As Attachment = New Attachment(Attachment.Text)

MyMailMessage.Attachments.Add(oAttch)

End If

Try

SMTPServer.Send(MyMailMessage)

MsgBox("Sent")

Catch ex As SmtpException

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub Attachments_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles Attachments.LinkClicked

OpenFileDialog1.ShowDialog()

End Sub

Private Sub FolderBrowserDialog1_HelpRequest(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FolderBrowserDialog1.HelpRequest

Attachment.Text = OpenFileDialog1.InitialDirectory

End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

Attachment.Text = OpenFileDialog1.InitialDirectory

End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

From.Text = ""

TxtTo.Text = ""

CC.Text = ""

BCC.Text = ""

Attachment.Text = ""

BodyText.Text = ""

Subject.Text = ""

End Sub

Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

By eita_zuliana - 10/13/2013

I need a help on this code. Sending failure. Can you help me on this . Tq