ايران ويج

درود
با بکارگیری کد زیر میتوانید در vbs ایمیل ارسال کنید.

کد: 
MailTo = "ایمیل به" 

From = "از" 

Subject = "موضوع" 

Body = "بدنه." 

Username = "یوزر نیم" 

Password = "پسورد" 

Email MailTo, From, Subject, Body, Username, Password 

Sub Email (MailTo, From, Subject, Body, Username, Password) 

 Set objMessage = CreateObject("CDO.Message") 

 With objMessage 

  .Subject = Subject 

  .From = From 

  .To = MailTo 

  .TextBody = Body 

 End With 

With objMessage.Configuration.Fields 

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Username 

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Password 

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'change to 465 or 25if you get an error 

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 

.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 

      .Update 

End With 

objMessage.Send 

End Sub

کد بالا با استفاده از جیمیل شما به ادرس داده شده یک ایمیل ارسال میکند.

موفق باشید.

grimm