0

我的代码中的这一行有问题Set Mail = Server.CreateObject("Persits.MailSender")。这段代码以前可以正常工作。突然之间,它开始抛出一个错误,说明创建对象失败。任何人都可以建议解决方法吗?

    Set Mail = Server.CreateObject("Persits.MailSender")" 
                ' enter valid SMTP host
    Mail.Host =  "smtpeu1-css.shell.com"
    Mail.From =  "SHIPLocalHost@shell.com"
    Mail.FromName = "SHIPLocalHost@shell.com"

    Mail.AddAddress  defaultTestEmail, defaultTestEmailName
    'If(len(emailCCEmail)>0)Then
        'Mail.AddAddress   defaultTestEmailCC , defaultTestEmailCCName
    'End If
    Mail.Subject = subject
    Mail.IsHTML = True
    'send an email for SSR
    Mail.Body= mailbody
    'Mail.AddAttachment "C:\Apps\SHIP from PROD\ship\ship\UploadedFiles\" & strFileName
    Mail.AddAttachment FilePath
    Mail.Send
4

0 回答 0