Vb6 CDO偶尔出现问题（通过重置windows解决）

我正在使用以下代码发送电子邮件。 有时（一个月一次或两次）没有发送电子邮件，但我没有收到错误，是收件人通知我他没有收到电子邮件。 如果我关掉电脑，再把它打开，就没有问题了

有什么想法吗

在Windows 10或Windows 7中也会发生同样的情况

Set objMessage = CreateObject("CDO.Message")

objMessage.Subject = sMailSubject
objMessage.From = Chr$(34) & "=?" & "ISO-8859-7" & "?" & "B" & "?" & Base64Str(sMailFrom) & "?=" & Chr$(34) & " <" & sEmailUser & ">"
objMessage.To = ToEmail
objMessage.ReplyTo = sReplyAddres
objMessage.TexsMailBody = sMailBody
objMessage.BodyPart.Charset = "ISO-8859-7"
If sPathAttahcment <> "" And Dir(sPathAttahcment) <> "" Then objMessage.AddAttachment sPathAttahcment

With objMessage.Configuration.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sSMTPserver
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = sEmailUser
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = sEmailPass 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = sSMTPport
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
    .Update
End With

objMessage.Send

set objMessage = Nothing

Set objMessage=CreateObject（“CDO.Message”）
objMessage.Subject=sMailSubject
objMessage.From=Chr$（34）和“=？”和“ISO-8859-7”和“？”和“B”和“？”以及Base64Str（sMailFrom）和“？=”&Chr$（34）和”
objMessage.To=ToEmail
objMessage.ReplyTo=sreplyAddress
objMessage.TexsMailBody=sMailBody
objMessage.BodyPart.Charset=“ISO-8859-7”
如果spatthattachment“”和Dir（spatthattachment）”，则objMessage.AddAttachment spatthattachment
使用objMessage.Configuration.Fields
.项目（”http://schemas.microsoft.com/cdo/configuration/sendusing“”=cdoSendUsingPort
.项目（”http://schemas.microsoft.com/cdo/configuration/smtpserver“”=sSMTPserver
.项目（”http://schemas.microsoft.com/cdo/configuration/smtpauthenticate“”=cdoBasic
.项目（”http://schemas.microsoft.com/cdo/configuration/sendusername“”=sEmailUser
.项目（”http://schemas.microsoft.com/cdo/configuration/sendpassword“”=sEmailPass
.项目（”http://schemas.microsoft.com/cdo/configuration/smtpserverport“”=sSMTPport
.项目（”http://schemas.microsoft.com/cdo/configuration/smtpusessl“”=真
.项目（”http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.更新
以
objMessage.Send
set objMessage=Nothing

忘了提及，我使用gmail和yahoo，同样的问题如果你不重新启动服务器，问题是否会系统性地发生？是的，我只能在重新启动后发送电子邮件。我试过用很多计算机，我想这可能与我的代码有关，因为我对thunderbird没有问题。你应该在一个平面文件中记录日志信息，跟踪代码的所有步骤，包括变量值。等待问题发生并分析日志文件。也许你应该看到有问题邮件的共同点，甚至你的代码一切正常，因为问题可能与邮件提供商有关。忘了提到，我使用gmail和yahoo，同样的问题如果你不重新启动服务器，问题是否会系统性地发生？是的，我只能在重新启动后发送电子邮件。我试过用很多计算机，我想这可能与我的代码有关，因为我对thunderbird没有问题。你应该在一个平面文件中记录日志信息，跟踪代码的所有步骤，包括变量值。等待问题发生并分析日志文件。也许您应该看到有问题的邮件的共同点，甚至您的代码一切正常，因为问题可能与邮件提供商有关。