传输器无法连接到服务器！救命！！ [英] The transporter failed to connect to the server! help!!

问题描述

这是我从互联网上复制的代码！

Sub SendMailFromGmail（）



    Dim iMsg As Object

   昏暗的iConf作为对象

    Dim Flds As Variant



$
   设置iMsg = CreateObject（" CDO.Message"）

   设置iConf = CreateObject（" CDO.Configuration"）



    iConf.Load -1

   设置Flds = iConf.Fields

    

     使用Flds

        .Item（" http://schemas.microsoft.com/cdo/configuration/smtpusessl"）= True

        .Item（" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"）= 1

        .Item（" http://schemas.microsoft.com/cdo/configuration/sendusername"）=" [e-mail]"

        .Item（" http://schemas.microsoft.com/cdo/configuration/sendpassword"）=" 789456123"

        .Item（" http://schemas.microsoft.com/cdo/configuration/smtpserver"）=" smtp.gmail.com" 'smtp邮件服务器

        .Item（" http://schemas.microsoft.com/cdo/configuration/sendusing"）= 2

        .Item（" http://schemas.microsoft.com/cdo/configuration/smtpserverport"）= 465'stmp server

        。更新

   结束与$


   使用iMsg



       设置.Configuration = iConf

        .To =" [e-mail]"

        .From =" [e-mail]"

        .Subject =" Hello" &安培;时间

        .TextBody =" Hi Dude"

        。发送¥b $ b   结束与$


   设置iMsg = Nothing

   设置iConf = Nothing



结束子

解决方案

    Sub send_email_via_Gmail（）
$
Dim myMail As CDO.Message



设置myMail =新CDO.Message



myMail.Configuration.Fields.Item（" http：//schemas.microsoft.com/cdo/configuration/smtpusessl"）= True



myMail.Configuration.Fields.Item（" http：//schemas.microsoft.com/cdo/configuration/smtpauthenticate"）= 1



myMail.Configuration .Fields.Item（" http：//schemas.microsoft.com/cdo/configuration/smtpserver"）=" smtp.gmail.com"
$


myMail .Configuration.Fields.Item（" http：//schemas.microsoft.com/cdo/configuration/smtpserverport"）= 465



myMail.Configuration.Fields。项目（"http：//schemas.microsoft.com/cdo/configuration/sendusing"）= 2



myMail.Configuration.Fields.Item（" http ：//schemas.microsoft.com/cdo/configuration/sendusername"）=" [e-mail]"



myMail.Configuration.Fiel ds.Item（" http://schemas.microsoft.com/cdo/configuration/sendpassword"）=" 7894564231"



myMail.Configuration.Fields。更新



使用myMail

.Subject ="测试来自Jordan tan的电子邮件"

.From =" ; [e-mail]"

.To =" [e-mail]"

.CC =" [e-mail]"

.BCC =""

.TextBody ="你好！ " b
结束用于
On Error Resume Next

myMail.Send

'MsgBox（" Mail has已发送"））
设置myMail =无任何货币


b

结束次级

This is my code i copied from the internet!

Sub SendMailFromGmail()

    Dim iMsg As Object
    Dim iConf As Object
    Dim Flds As Variant


    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1
    Set Flds = iConf.Fields
    
     With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[e-mail]"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "789456123"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'smtp mail server
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'stmp server
        .Update
    End With

    With iMsg

        Set .Configuration = iConf
        .To = "[e-mail]"
        .From = "[e-mail]"
        .Subject = "Hello" & Time
        .TextBody = "Hi Dude"
        .Send
    End With

    Set iMsg = Nothing
    Set iConf = Nothing

End Sub

解决方案

    Sub send_email_via_Gmail()
Dim myMail As CDO.Message

Set myMail = New CDO.Message

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

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

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

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

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

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[e-mail]"

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "7894564231"

myMail.Configuration.Fields.Update

With myMail
.Subject = "Test email from Jordan tan"
.From = "[e-mail]"
.To = "[e-mail]"
.CC = "[e-mail]"
.BCC = ""
.TextBody = "hello! "
End With
On Error Resume Next
myMail.Send
'MsgBox("Mail has been sent")
Set myMail = Nothing



End Sub

这篇关于传输器无法连接到服务器！救命！！的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！