vb 发送html邮件,通过VB6发送电子邮件

我想知道是否有办法通过VB6发送电子邮件(SMTP).我有一个应用程序,只需要在用户完成后发送一个简单的电子邮件,让组知道应用程序已处理.有没有办法做到这一点？

是的 – 取决于您使用的

Windows版本.假设其中一个版本 – CDO.Message工作得很好.

Sub SendMessage(MailFrom,MailTo,Subject,Message)

Dim ObjSendMail

Set ObjSendMail = CreateObject("CDO.Message")

'This section provides the configuration information for the remote SMTP server.

With ObjSendMail.Configuration.Fields

.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).

.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smpt server Address"

.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)

.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

' If your server requires outgoing authentication uncomment the lines below and use a valid email address and password.

' .Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication

' .Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = MailFrom

' .Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword

.Update

End With

'End remote SMTP server configuration section==

ObjSendMail.To = MailTo

ObjSendMail.Subject = Subject

ObjSendMail.From = MailFrom

' we are sending a html email.. simply switch the comments around to send a text email instead

ObjSendMail.HTMLBody = Message

'ObjSendMail.TextBody = Message

ObjSendMail.Send

Set ObjSendMail = Nothing

End Sub

总结

以上是编程之家为你收集整理的通过VB6发送电子邮件全部内容，希望文章能够帮你解决通过VB6发送电子邮件所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。