通过VB6发送电子邮件 [英] Sending an email through VB6
本文介绍了通过VB6发送电子邮件的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我想知道是否有办法通过VB6发送邮件(SMTP)。我有一个应用程序,只需要发送一个简单的电子邮件,当用户完成让一个组知道应用程序已经处理。有没有办法这样做?
I am wondering if there is a way to send an email (SMTP) through VB6. I have an application that just needs to send a simple email when the user is done to let a group know that the application has processed. Is there a way to do that?
推荐答案
是 - 取决于你使用的是哪个版本的Windows。假设其中一个更新的版本 - CDO.Message很好用。
Yep - depends on which version of windows you're using. Assuming one of the later versions - CDO.Message works great.
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发送电子邮件的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文