发信

Question

怎样实现按一下按钮就调用机器的程序给****@****.com发信

Answer 1

用CDONTS组件以下是一个最简单的邮件发送程序，它由[email protected]向[email protected]发出一封标题为“Title”、内容为“Hello”的E-mail：　　Private Sub cmdSendMail_Click()　　Dim objMail as Object　　Set objMail=CreateObject("CDFONTS.DLL")　　ObjMail.Send "[email protected] ", "[email protected]","Title","Hello"　　Set objMail=nothing　　End Sub　　3. 发送邮件附件　　如果有附加的文件需要随同邮件传送，可以使用CDONTS的AttachFile方法：　　Private Sub cmdSendMail_Click()　　Dim objMail as Object　　Set objMail=CreateObject("CDFONTS.DLL")　　With ObjMail　　.From= "[email protected] "　　.To= "[email protected]"　　.Subject="Title"　　.Body="Hello"　　.AttachFile "c:\document\ sample.doc","sample.doc"　　.Send　　 End With　　 Set objMail=nothing　　End Sub　　4. CDONTS组件常用属性和方法　　CDONTS组件常用的属性和方法列举如下：　　属性：　　Version：返回CDONTS组件的版本号　　MailFormat：邮件格式，1-普通文本类型；0-MIME类型　　Cc：设置一个或多个参阅的邮件地址　　From：邮件发送者的地址　　To ：邮件接受者的地址　　Subject：标题　　Body：内容　　BodyFormat：内容格式，1-普通文本；0-超文本　　　　方法：　　AttachFile：附加一个文件　　AttachURL：附加一个地址　　Send：发送邮件

Answer 2

我只是想调用使用者机器的发信软件，比如outlook或者foxmail然后自动加上地址和标题！！！！

Answer 3

<a href=mailto:[email protected] target=_blank>发送</a>

Answer 4

在开始编写代码之前，先添加对Outlook 8.0 object library的引用。
代码如下：Option ExplicitDim App As Object
Dim Itm As ObjectSet App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = "A tip from vbCode Magician"
.To = "[email protected]"
.Body = "test" .Send
End With