Re: [VB6 ] vb6寫email的程式
最近剛好需要用到
Public Function SendMail(Optional ByVal MailFrom As String = """系統""<輸入系統mail>", _
Optional ByVal MailTo As String = "<輸入mail>", _
Optional ByVal MailCC As String = "<輸入mail>", _
Optional ByVal MailSubject As String = "系統通知信", _
Optional ByVal MailTextBody As String = "", _
Optional ByVal MailAttachPath As String) As Boolean
Dim CDOMail As Object
Dim PathAry() As String
Dim i As Integer
Set CDOMail = CreateObject("CDO.Message")
CDOMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "輸入smtp server "
CDOMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '('1 代表使用 local smtp, 2 為外部 smtp)
CDOMail.Configuration.Fields.Update
CDOMail.From = MailFrom
CDOMail.To = MailTo
CDOMail.CC = MailCC
CDOMail.Subject = MailSubject
CDOMail.TextBody = MailTextBody
'處理多附件情況
If MailAttachPath <> "" Then
PathAry() = Split(MailAttachPath, ",")
For i = 0 To UBound(PathAry)
CDOMail.AddAttachment (PathAry(i)) '附件檔案
Next
End If
CDOMail.send
Set CDOMail = Nothing
SendMail = True
End Function
可執行的~~
※ 引述《tfgjj (還我漂亮)》之銘言：
: 因為最近想寫一個vb6的email程式
: 但是不知道要從哪邊下手
: 不知道有沒有參考的書籍或網站
: 因為原本的系統是vb開發的
: 要再加上email寄送資料的東東
: 大概就是 aaa@company.com a.txt
: bbb@company.com b.txt
: 就是每個使用者分別寄送不同的文字檔給他
: 謝謝
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.125.217.209
推
08/21 23:40, , 1F
08/21 23:40, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：