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的收件箱中,得再点击发件按钮才能发出去!!不能自动发送!!这是怎么回事?该怎么办啊?

解决方案 »

  1.   

    你这个问题怎么发这么多帖子
    我总结我的答复
    我仅仅知道解决的办法
    其实就是用
    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发信,必须放到它的发件箱
      

  2.   

    能不能让outlook放到它的发件箱后就自动发送啊??
    在线等啊!
      

  3.   

    我也遇到过类似的问题, 好像每封邮件发送后关闭一下Session, Outlook
    就自动发一封, 如果多封信, 就再打开Session一次. 这样肯定可以.不过原来我最早做这种邮件时, 代码方式和你类似, 也没有这种问题. 后来
    遇到了. 当时也不知道为什么. 可能水平提高后, 遇到的问题也层次高些了
    吧 :)