在发邮件时需要设置smtp协议，请问如何在vb实现？
谢谢告我！！！！！！！！ 问题点数：0、回复次数：4Top
1 楼egxsun（egxsun）回复于 2004-11-01 19:18:09 得分 0
upTop
2 楼danielrh（）回复于 2004-11-01 19:27:52 得分 0
Example:
Private Sub SendMail(strInv As String, strFile As String)
Dim strSender As String, objMail As New jmail.SMTPMail
Dim strSubject As String
strSubject = strInv & " XML File"
strSender = Nz(DLookup("IntEmail", "logList", "logName='" & Forms("frmlogin").txtUserID & "'"), "")
If Len(Trim(strSender)) = 0 Then
strSender = "logistics@foxconn.com"
MsgBox "由于您沒有Internet Email地址,您將不能收到XML文件的抄本." & vbNewLine & "請到cmm logistics信箱查看.", vbInformation
End If
With objMail
.ServerAddress = "10.150.100.102:25"
.Logging = True
.Silent = True
.Charset = "Big5"
.Sender = strSender
.ReplyTo = strSender
.ClearRecipients
.AddRecipient strSender
.Subject = strSubject
.AddRecipient "mdobos@cz.foxconn.com"
.AddRecipient "foxdata2@foxconn.cz"
.AddRecipient "jirimuller@foxconn.cz"
.ClearAttachments
.AddAttachment strFile
.Execute
End With
Set objMail = Nothing
End SubTop
3 楼aijie099（罗漫年华）回复于 2004-11-01 20:44:06 得分 0
你用的是那种方式发邮件，如果你用apimTop
4 楼xiaohuangtao（绿毛网虫）回复于 2004-11-12 17:54:41 得分 0
http://www.smartmaildemo.comTop
