With MAPIMessages1
.SessionID = MAPISession1.SessionID
.MsgIndex = -1
.Compose
.RecipAddress = "[email protected]"
.ResolveName
.MsgSubject = "jonia"
.MsgNoteText = "junny"
.RecipDisplayName = "[email protected]"
.AttachmentName = ado.Recordset("report_name")
.AttachmentPathName = ado.Recordset("report_Path")
.Send False
End With发送邮件后!!邮件发到MICROSOFT OUTLOOK的收件箱中,得再点击发件按钮才能发出去!!不能自动发送!!这是怎么回事?该怎么办啊?
.SessionID = MAPISession1.SessionID
.MsgIndex = -1
.Compose
.RecipAddress = "[email protected]"
.ResolveName
.MsgSubject = "jonia"
.MsgNoteText = "junny"
.RecipDisplayName = "[email protected]"
.AttachmentName = ado.Recordset("report_name")
.AttachmentPathName = ado.Recordset("report_Path")
.Send False
End With发送邮件后!!邮件发到MICROSOFT OUTLOOK的收件箱中,得再点击发件按钮才能发出去!!不能自动发送!!这是怎么回事?该怎么办啊?
解决方案 »
- 如何改变EXE文件的样子?
- VB6加水晶报表9,不知怎样传入参数
- 有10个text1 的控件数组,可以建立每个文本框的键盘keydown事件吗?
- 信息:大名鼎鼎的Lavolpe (Keith)将要在Planet-Source-Code上发布Unicode Textbox源码
- 用XOR加密文件时的一个问题
- 请问如何动态修改.exe文件的图标
- 怎么删除随机文件中的目录???
- 在线等!!请问vb中操作word对象和excel对象需要那个动态连接库???
- 关于VB+MSSQL Server的两个问题
- 怎样打印PictureBox控件中的内容?
- 请问谁用过Agent控件,进来帮助一下?
- 救救我吧!动态创建的控件怎么不能Remove?
我总结我的答复
我仅仅知道解决的办法
其实就是用
MAPISession1.LogonUI = True
MAPISession1.USERNAME = trim$(userid)
MAPISession1.Password = trim$(password)
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = RTrim$(email_id)
MAPIMessages1.MsgNoteText = "Please find attached document as per your requested "
MAPIMessages1.AttachmentPathName = Trim$(temppath) + "\IMAGE.TIF"
MAPIMessages1.SEND False 这种类型,它会放到outlook发件箱的发件箱,如果通过outlook发信,必须放到它的发件箱
在线等啊!
就自动发一封, 如果多封信, 就再打开Session一次. 这样肯定可以.不过原来我最早做这种邮件时, 代码方式和你类似, 也没有这种问题. 后来
遇到了. 当时也不知道为什么. 可能水平提高后, 遇到的问题也层次高些了
吧 :)