How to: Send mail using SMTP and delete Gmail SPAM?

Public Class clsEmail
Public Sub clsEmail()
End Sub
Public Sub Send(ByVal pEnableSsl As Boolean, ByVal pHost As String, ByVal pPort As String, ByVal pEmailFrom As String, ByVal pTo As String, ByVal pPassword As String, ByVal pSubject As String, ByVal pBody As String, Optional ByVal pCC As String = "")
Dim smtp As New SmtpClient
smtp.EnableSsl = pEnableSsl
'Set the SMTP settings...
smtp.Host = pHost
smtp.Port = pPort
smtp.UseDefaultCredentials = False
smtp.Credentials = New NetworkCredential(pEmailFrom, pPassword)
'smtp.PickupDirectoryLocation = "C:\Mailserver\Settings\local_xml\MailStore\Mailboxes\snehal\Inbox\"
smtp.DeliveryMethod = SmtpDeliveryMethod.Network
' AddHandler smtp.SendCompleted, AddressOf Me.SendCompletedHandler
'(1) Create the MailMessage instance
Dim mm As New MailMessage()
mm.From = New MailAddress(pEmailFrom)

Dim strArr As String() = pTo.Split(";")
For Each strString In strArr
If strString <> String.Empty Then
mm.To.Add(strString)
End If
Next

Dim strArr1 As String() = pCC.Split(";")
For Each strString In strArr1
If strString <> String.Empty Then
mm.CC.Add(strString)
End If
Next


'(2) Assign the MailMessage's properties
mm.Subject = pSubject
mm.Body = pBody
mm.IsBodyHtml = True
'(4) Send the MailMessage (will use the Web.config settings)
smtp.Send(mm)
End Sub

End Class

check out my tip trip at this link
Using Gmail Account to Send Emails[^]