用VB.net發送Email失敗

2007-08-17 03:46:56 201 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB开发者必备：5步掌握SeleniumBasic实现浏览器自动化浏览器自动化是提升数据处理和业务流程效率的关键技术，其核心原理是通过WebDriver协议控制浏览器，模拟真实用户操作。这项技术对于需要与Web进行数据交互的自动化任务具有重要价值，广泛应用于数据抓取、报表生成、系统测试和日常办公自动化等场景。SeleniumBasic作为专门为Visual Basic生态设计的COM库，巧妙地将强大的Selenium WebDriver功能封装成VB可直接调用的对象，使得VB、VBA和VB.NET开发者无需切换技术栈，就能在熟悉的开发环境中轻松实现网页操作、表单填写和数据阅读详情

我想用VB.net發送Email，一併cc副本給使用者所留的email，但是收不到郵件。請問是怎麼回事？下面是代碼︰
Public Function SenExportFile(ByVal LSTR_EmailAddress As String, ByVal LSTR_AttachPath As String, ByVal LSTR_ExportContent As String, ByVal LSTR_Subject As String, ByVal LSTR_From As String, ByVal LSTR_Cc As String) As String Implements IBU_TEPS.SenExportFile
'*****必要宣告*****
Dim LSTR_ClassName As String
Dim LSTR_MethodName As String
Dim LSTR_MethodID As String = "07"

Dim LSTR_LogFile As String
'*****額外宣告*****
Dim SMail As System.Web.Mail.SmtpMail
Dim message As New Web.Mail.MailMessage
Dim attachFile As MailAttachment
Dim attachFile1 As MailAttachment
Dim attachFile2 As MailAttachment

Dim LSTR_XlsData As String
Dim LSTR_FileName As String
Dim LOBJ_Component As Object
Dim GCST_TEPSReportPath As String

GCST_TEPSReportPath = ITG.Common.GetProfileString(ITG.Common.GCST_EnvParameter, "TEPSReportPath", "", ITG.Common.GCST_IniFileName)
Try
LSTR_ClassName = "ITG.BU_TEPS"
LSTR_MethodName = "SenExportFile"
LSTR_LogFile = LSTR_ClassName & "_" & LSTR_MethodName & ".log"
ITG.Common.LogFile(LSTR_LogFile)
ITG.Common.LogFile(LSTR_LogFile, "LSTR_EmailAddress", LSTR_EmailAddress)
ITG.Common.LogFile(LSTR_LogFile, "LSTR_AttachPath", LSTR_AttachPath)
ITG.Common.LogFile(LSTR_LogFile, "LSTR_ExportContent", LSTR_ExportContent)
ITG.Common.LogFile(LSTR_LogFile, "LSTR_EmailAddress", LSTR_EmailAddress)
ITG.Common.LogFile(LSTR_LogFile, "LSTR_From", LSTR_From)
ITG.Common.LogFile(LSTR_LogFile, "LSTR_Cc", LSTR_Cc)

message.To = CStr(LSTR_EmailAddress)
message.From = CStr(LSTR_From)
If CStr(LSTR_Cc) <> "" Then
message.Cc = CStr(LSTR_Cc)
End If
message.Body = LSTR_ExportContent
message.BodyEncoding = System.Text.Encoding.GetEncoding("utf-8")
message.BodyFormat = Web.Mail.MailFormat.Html
message.Priority = Web.Mail.MailPriority.High
message.Subject = LSTR_Subject

Call SMail.Send(message)

SenExportFile = GCST_CorrectRC + GCST_TEPSReportPath + LSTR_AttachPath
ITG.Common.LogFile(LSTR_LogFile, SenExportFile)
ContextUtil.SetComplete()
Catch Exception As System.Exception
SenExportFile = GCST_NotCorrectRC + Exception.Message
ITG.Common.LogFile(LSTR_LogFile, SenExportFile)
If Not LOBJ_Component Is Nothing Then
LOBJ_Component = Nothing
End If
ContextUtil.SetAbort()
Throw Exception
Finally
If Not LOBJ_Component Is Nothing Then
LOBJ_Component = Nothing
End If
End Try
End Function
急等。請各位大蝦幫幫忙！謝謝了！

...全文