使用MAPI实现邮件发送,在线急等

[tanmeining]

程序已经完成，但有以下几个遗留问题:
1、自动发送时的警告问题，如何去掉？
2、默认Outlook Express为系统邮件客户端，可以立即发送，如果是Outlook，是先放到Outlook的发送队列了，这时如果Outlook未运行，就一直不会发送。怎样可以保证无论邮件客户软件是否在运行，我的程序都可以立即将邮件发送出去呢？
3、如何一对多发送邮件？
PS:我使用的是outlook2007,请问如何能在不使用Outlook及Outlook Express的情况下，利用Exchange Server实现邮件收发呢？
欢迎大家踊跃讨论,分不够我再加。

[tanmeining]

自己顶起来!~~~~

[tanmeining]

1，好像可以通过注册表实现把警告提示去掉，但不知道用程序怎么做的？知道的大侠还请不吝赐教。

[gamezealot]

程序已经完成，但有以下几个遗留问题:
1、自动发送时的警告问题，如何去掉？
答：你说的是outlook的那个安全提示吧，如果你使用的是outlook对象模型编程的话，属于外部调用，这个提示肯定会出来的。（至于如何去掉，比较麻烦，忘了）如果使用的是MAPI相关的函数的话，这个对话框根本不会出来。
2、默认Outlook Express为系统邮件客户端，可以立即发送，如果是Outlook，是先放到Outlook的发送队列了，这时如果Outlook未运行，就一直不会发送。怎样可以保证无论邮件客户软件是否在运行，我的程序都可以立即将邮件发送出去呢？
答：如果你使用outlook对象模型，必须调用Outlook::_MailItem::Send()方法发送。如果是使用MAPI，则必须使用IMessage::SubmitMessage来发送邮件。
3、如何一对多发送邮件？
PS:我使用的是outlook2007,请问如何能在不使用Outlook及Outlook Express的情况下，利用Exchange Server实现邮件收发呢？
答：可以，你就使用MAPI，登录Exchange服务器，后面IMessage::SubmitMessage即可。

[tanmeining]

以下是我的发送邮件的代码部分，没有用到outlook的对象模型啊：

#include "stdafx.h"
#include <mapi.h>

////////////////////加上这几行///////////////////////////////
#include <stdlib.h>
/* 定义返回值*/
#define SENDEMAIL_SUCCESS               0 //邮件成功发送
#define SENDEMAIL_MAPI_NOT_INSTALLED    1 //没有安装MAPI Server
#define SENDEMAIL_MAPILOAD_FAILED       2 //加载 MAPI32.DLL 失败
#define SENDEMAIL_LOGON_FAILED          3 //无法登陆到 MAPI Server 或者 用户取消了登陆框
#define SENDEMAIL_SEND_FAILED           4 //消息发送失败

int CMciDlg::SendEmail(const char * Address,
				  const char* Subject, 
				  const char* Text)
{
    int             iResult;
    HINSTANCE       hMAPIInst;
    LPMAPILOGON     pMAPILogon;
    LPMAPILOGOFF    pMAPILogoff;
    LPMAPISENDMAIL  pMAPISendMail;
	LPMAPIRESOLVENAME pMAPIResolveName;
    LHANDLE         lhSession;

    iResult = SENDEMAIL_SUCCESS;
    hMAPIInst = ::LoadLibrary("MAPI32.DLL");
    if(!hMAPIInst)
	{
		FreeLibrary(hMAPIInst);
		return SENDEMAIL_MAPILOAD_FAILED;
	}

    pMAPILogon = (LPMAPILOGON) GetProcAddress(hMAPIInst, "MAPILogon");
    pMAPILogoff = (LPMAPILOGOFF) GetProcAddress(hMAPIInst, "MAPILogoff");
    pMAPISendMail = (LPMAPISENDMAIL) GetProcAddress(hMAPIInst, "MAPISendMail");
	pMAPIResolveName = (LPMAPIRESOLVENAME) GetProcAddress(hMAPIInst,"MAPIResolveName");
    
	//登录
	if(pMAPILogon(0, NULL, NULL, MAPI_NEW_SESSION, 0, &lhSession) != SUCCESS_SUCCESS)
    {
        iResult = SENDEMAIL_LOGON_FAILED;
    }
    else
    {
        ULONG       Result;
        
		//收件人结构信息
        MapiRecipDesc recip;
        memset(&recip,0,sizeof(MapiRecipDesc));
        recip.lpszAddress      = (char*)Address;
        recip.ulRecipClass = MAPI_TO;

		//邮件结构信息
        MapiMessage Msg;
        memset(&Msg, 0, sizeof(Msg));
        Msg.nFileCount     = 0;									 //文件个数
        Msg.lpFiles        = 0;						             //文件信息
        Msg.nRecipCount    = 1;                                  //收件人个数
        Msg.lpRecips       = &recip;                             //收件人
        Msg.lpszSubject    = (char*)Subject;		             //主题
        Msg.lpszNoteText   = (char*)Text;                        //正文内容

		Result = pMAPIResolveName(lhSession, 0, Msg.lpRecips->lpszAddress,0, 0, &Msg.lpRecips);
        Result = pMAPISendMail(lhSession, 0, &Msg, 0, 0);
        if(Result != SUCCESS_SUCCESS)
		{
			iResult = SENDEMAIL_SEND_FAILED;
		}
        pMAPILogoff(lhSession, 0, 0, 0);
    }

    FreeLibrary(hMAPIInst);

    return iResult;
}

gamezealot，高手帮忙看看，有什么地方不对的?

[gamezealot]

你使用的是Simple MAPI，使用OOM（outlook对象模型），CDO（合作数据对象，不知道官方如何翻译的）还有Simple MAPI的时候，都会产生这个提示的。
"a program is trying to access your Address book or Contacts" or "a program is trying to access e-mail addresses you have stored in Outlook..."
据我目前所知，要不出现这个提示，有三种方法：
1. 使用Extended MAPI。
2. 使用COM开发插件，添加IDTExtensibility2接口支持，可以获得Outlook.Application.这个对象是被outlook所信任的对象，而插件里得到的是这个对象的引用，所以不会有提示。
3. 使用VSTO，就是VS for Office插件开发，这个道理也2一样。都是被信任的对象。

[gamezealot]

关于outlook安全提示的几乎所有问题，可以看这个地址，很权威的。
http://www.outlookcode.com/article.aspx?id=52

[bsr2009]

没搞过，帮顶。

[songsu]

没弄过。一般直接自已建SOCKET发。

[tanmeining]

[Quote=引用 2 楼 songsu 的回复:]
没弄过。一般直接自已建SOCKET发。
[/Quote]
Socket？你的意思是用POP3+SMTP的方式？这种方式不能用于Exchange Server收发邮件的。

[tanmeining]

顶

[lsvine]

[Quote=引用 3 楼 tanmeining 的回复:]
Socket？你的意思是用POP3+SMTP的方式？这种方式不能用于Exchange Server收发邮件的。
[/Quote]

为什么不能？

[tanmeining]

[Quote=引用 5 楼 lsvine 的回复:]
引用 3 楼 tanmeining 的回复:
Socket？你的意思是用POP3+SMTP的方式？这种方式不能用于Exchange Server收发邮件的。


为什么不能？
[/Quote]
因为公司的邮件服务器没有用SMTP协议，根本没法配置SMTP服务器和POP3服务器。

[tanmeining]

已经搞定，非常感谢gamezealot。
最终使用方法：outlook2007用的Extended MAPI,outlook Express用的Simple MAPI+修改注册表的键值。