最近刚好需要用到 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寄送资料的东东 : 大概就是 [email protected] a.txt : [email protected] b.txt : 就是每个使用者分别寄送不同的文字档给他 : 谢谢 -- --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 59.125.217.209