How to send email with vb.Net code

Import Files

Imports System.Net.Mail
Imports System.Net.Dns

Code Behind

        Dim ClientIP As String
        ClientIP = Request.UserHostAddress()

        Dim FileName As String = Server.MapPath("FolderName/FileSample.pdf")
        Dim message As New MailMessage
        message.From = New MailAddress("Email@host.com", "Name")
        message.To.Add(New MailAddress(Recipient@email.com))
        message.CC.Add(New MailAddress("CarbonCopy@email.com"))
        message.Subject = "Subject Text"
        message.IsBodyHtml = True
        message.Attachments.Add(New System.Net.Mail.Attachment(FileName))
        message.Body = "BODY HTML<br />**Sender Info**<br />Computer: " & ClientIP & "<br />Ip: " & Request.ServerVariables("REMOTE_ADDR").ToString

        Dim client As New SmtpClient
        client.Send(message)

Related Posts

Comments are closed.