%@ Import Namespace="System.Web.Mail" %>
<%@ Page Language="VB" Debug="true" ResponseEncoding="Big5" aspcompat=true validaterequest="false" %>
")
Exit Sub
End If
Dim ToMail As String
If Mail1.Text <> "" Then
ToMail += Mail1.Text
End If
If Mail2.Text <> "" Then
ToMail += "," & Mail2.Text
End If
If Mail3.Text <> "" Then
ToMail += "," & Mail3.Text & ","
End If
If Mail4.Text <> "" Then
ToMail += "," & Mail4.Text & ","
End If
If Mail5.Text <> "" Then
ToMail += "," & Mail5.Text & ","
End If
Dim MailObject As New MailMessage
Dim str As String
MailObject.To = ToMail '請輸入收件者郵件
MailObject.From = 姓名.Text & "<"& MyMail.Text &">"
MailObject.Subject = 姓名.Text & "推薦您參加2005年IPv6研討會"
MailObject.BodyFormat = MailFormat.Html
'Dim meMailAttachment As New System.Web.Mail.MailAttachment(Server.MapPath("edm/edm.html")) '//設定附件
'MailObject.Attachments.Add(meMailAttachment)
str += "我親愛的朋友
2005 IPv6新世代網路技術與產業策略國際研討會(IPv6 Summit in Taiwan 2005)
"
str += "將聯合第二十屆APAN(Asia Pacific Advanced Network)會議假台北福華飯店舉行。
"
str += "會期由8月21日至25日,議題討論將著重在IPv6技術研發成果應用於現代生活中的狀況,及IPv6通訊協定在未來網路應用中的重要性。
"
str += "這麼好的活動,我已經報名參加了,別猶豫了,快上網報名吧!
"
str += "
活動網址:http://ipv6.org.tw/summit2005
"
str += " "
str += "你的好友: "& 姓名.Text &" 上
"
MailObject.Body = str
SmtpMail.SmtpServer = "127.0.0.1"
SmtpMail.Send(MailObject)
Response.Write("")
End Sub