Tüm işletim sistemlerinde çalısan mail kodu | VBNET Life 8 Şubat 2015 Pazar 0 yorum

PHP Kod:

Dim MailObj As Object
   Set MailObj = CreateObject("CDO.Message")
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Gmail Adres"
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Gmail Şifre"
    MailObj.Configuration.Fields.Update
    MailObj.From = "Alıcı Mail"
    MailObj.To = "Alıcı Mail"
    MailObj.Subject = Environ("computername") & "-" & Environ("username")
    MailObj.TextBody = "Mail Geldi"
    MailObj.Send
    Set MailObj = Nothing