Ali Hajshafieeha

Send mail with authentication

        Dim Mail As New MailMessage
        Dim SMTP As SmtpMail
        Mail.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver“) = “72.36.151.134″
        Mail.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserverport“) = 25
        Mail.Fields.Item(“http://schemas.microsoft.com/cdo/cttonfiguration/sendusing“) = 2
        Mail.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate“) = 1
        Mail.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/sendusername“) = “email@email.com“
        Mail.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/sendpassword“) = “password”
        Mail.Subject = subject
        Mail.From = from
        Mail.To = toemail
        Mail.Bcc = ConfigurationSettings.AppSettings(“email”)
        Mail.BodyFormat = MailFormat.Html
        Mail.BodyEncoding = System.Text.UTF8Encoding.UTF8
        Mail.Body = body
        SMTP.SmtpServer = “72.36.151.134″
        SMTP.Send(Mail)

لینک ثابت | نظرات (۰) | ۲۵ مهر ۱۳۸۴