在发邮件时需要设置smtp协议，请问如何在vb实现？

[hotface]

谢谢告我！！！！！！！！

[egxsun]

up

[danielrh]

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 = "[e-mail]"
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 "[e-mail]"
.AddRecipient "[e-mail]"
.AddRecipient "[e-mail]"
.ClearAttachments
.AddAttachment strFile
.Execute

End With
Set objMail = Nothing
End Sub

[aijie099]

你用的是那种方式发邮件，如果你用apim

[xiaohuangtao]

http://www.smartmaildemo.com