Public Function GetMailMessage1() As MailMessage
Try
Dim eMailMessage As New MailMessage
Dim PA_ADDRESS_A As String = txtPA_ADDRESS_A.Text.ToString.Trim()
With eMailMessage
.To = PA_ADDRESS_A
.From = EMP_EMAIL '寄件人 '20050611 Selenar update
'.Cc = "jiangdao_chang@163.com"
'.Bcc = "jiangdao_chang@163.com"
.Subject = "統合開發年費帳單"
.BodyFormat = MailFormat.Html
.Body = "統合開發年費帳單"
'.Body = "統合開發年費帳單" & "<br><br>" & "請用傳真回覆,勿使用E-mail回覆!!" & "</br></br>"
.BodyEncoding = System.Text.Encoding.GetEncoding("BIG5")
End With
'eMailMessage.Attachments.Add(New MailAttachment("C:\\TONHO_FEE.TXT"))
eMailMessage.Attachments.Add(New MailAttachment("C:\\TONHO_FEE.TXT"))
GetMailMessage1 = eMailMessage
Catch ex As Exception '20050705 Selenar Update
ClsLbr1.AddMsg(Page, ex.ToString())
End Try
End Function
Public Function GetMailMessage2() As MailMessage
Try
Dim eMailMessage As New MailMessage
Dim PA_ADDRESS_B As String = txtPA_ADDRESS_B.Text.ToString.Trim()
With eMailMessage
.To = PA_ADDRESS_B
.From = EMP_EMAIL '寄件人 '20050611 Selenar update
'.Cc = "jiangdao_chang@163.com"
'.Bcc = "jiangdao_chang@163.com"
.Subject = "統合開發代扣年費資料"
.BodyFormat = MailFormat.Html
.Body = "統合開發代扣年費資料"
'.Body = "統合開發年費帳單" & "<br><br>" & "請用傳真回覆,勿使用E-mail回覆!!" & "</br></br>"
.BodyEncoding = System.Text.Encoding.GetEncoding("BIG5")
End With
eMailMessage.Attachments.Add(New MailAttachment("C:\\TONHO_CARD.TXT"))
GetMailMessage2 = eMailMessage
Catch ex As Exception
ClsLbr1.AddMsg(Page, ex.ToString())
End Try
End Function
#End Region
#Region " 設定Mail或Fax Server"
Private Sub SendMail(ByVal eMail As MailMessage)
On Error Resume Next
SmtpMail.SmtpServer = "Localhost"
SmtpMail.Send(eMail)
'If Err.Number <> 0 Then
' ''lblMessage.Text = "<font color =#ff0066>" & "郵件伺服器不存在!!!"
' Response.Write("<javaScript>alert('發信失敗!!')</Script>")
'Else
' Response.Write("<javaScript>alert('發信成功!!')</Script>")
' '' lblMessage.Text = "<font color =#00ff99>" & "發信成功!!!"
'End If
End Sub