Question

VB大神发送邮件代码求救？？急急急

Private Sub Label1_Click()End SubPrivate Sub Label2_Click()End SubPrivate Sub Form_Load()MAPISession1.SignOn '运行程序之后进行邮箱登录操作End SubPrivate Sub Form_Unload(Cancel As Integer)MAPISession1.SignOff '退出程序时候进行退出邮箱操作End SubPrivate Sub txtSendTo_Change()End SubPrivate Sub 发送_Click()With MAPIMessages1.MsgIndex = -1.RecipDisplayName = txtSendTo.Text '收件人地址.MsgSubject = txtSubject.Text '邮件主题.MsgNoteText = txtMessage.Text '邮件正文.SessionID = MAPISession1.SessionID '发送程序和邮件工具之间建立的任务数.SendEnd WithMsgBox "邮件发送完毕!", , "发送邮件" '发送成功显示信息框End Sub为什么这个运行出来的错误是：48389请问我要实现发送邮件的功能，应该怎么改动？？大神救命。。。

Answer 1

这个我会，尽早帮你看一下

追问

好，等你好消息

Answer 2

你这个还有问题吗

追问

没有啦 谢谢啦

追答

牛逼