outlook编程问题

Question

怎么在点添加附件的时候截取消息？
发送的时候截取也行
我就是想替换掉它将要发送的文件。

Answer 1

为什么Attachments.Add 说找不到指定路径啊？
有会的吗？

Answer 2

- -
就是
CComPtr<_MailItem> pMailItem;
Item->QueryInterface(__uuidof(_MailItem), (void**)&pMailItem); HRESULT h = S_FALSE;
do
{
if(!pMailItem) break;
Attachments* pAttachments;
Attachment* pAttachment;
long lAttachmentCounts = 0; h = pMailItem->get_Attachments(&pAttachments);
h = pAttachments->get_Count(&lAttachmentCounts); TCHAR msg[MAX_PATH] = {0};
_stprintf(msg, _T("item count = %d"), (int)lAttachmentCounts);
::OutputDebugString(msg); for(int i = 1; i <= lAttachmentCounts; i++)
{
pAttachment = NULL;
VARIANT index;
index.vt = VT_I4;
index.lVal = i;
pAttachments->Item(index, &pAttachment); h = pAttachment->SaveAsFile(_T("c:\\123123.txt"));
::OutputDebugString(_T("save succeeded!")); VARIANT vSource;
vSource.vt = VT_BSTR;
vSource.bstrVal = _T("c:/123123.txt"); VARIANT vType;
vType.vt = VT_INT;
int nn = sizeof(OlAttachmentType);
h = pAttachment->get_Type((OlAttachmentType*)&vType.intVal); memset(msg, 0, MAX_PATH);
_stprintf(msg, _T("type = %d"), vType.intVal);
::OutputDebugString(msg); VARIANT vPos;
vPos = vtMissing;
/*vPos.vt = VT_I4;
h = pAttachment->get_Position(&vPos.lVal);*/ memset(msg, 0, MAX_PATH);
_stprintf(msg, _T("position = %d"), vPos.lVal);
::OutputDebugString(msg); VARIANT vDisplayName;
vDisplayName = vtMissing;
/*vDisplayName.vt = VT_BSTR;
vDisplayName.bstrVal = _T("123123");*/ if(pMailItem->Save() == S_FALSE) break;
h = pAttachments->Remove(index.lVal);
if(h == S_FALSE) break;
h = pMailItem->Save();
::OutputDebugString(_T("Remove succeeded!")); h = pMailItem->put_Body(BSTR(_T("xxxxxxxxx"))); h = pMailItem->Save();
h = pAttachments->Add(vSource, vType, vPos, vDisplayName, &pAttachment);
pAttachments->Add(vSource, vType, vPos, vDisplayName, &pAttachment)这个提示找不到路径

Answer 3

VARIANT vSource;
            vSource.vt = VT_BSTR;
            vSource.bstrVal = _T("c:/123123.txt");这个就是绝对路径吧
我看MSDN有c#和vb的代码
就是没有c++的
晕啊

Answer 4

private void SendSalesReport()
{
    Outlook.MailItem mail = Application.CreateItem(
        Outlook.OlItemType.olMailItem) as Outlook.MailItem;
    mail.Subject = "Quarterly Sales Report FY06 Q4";
    Outlook.AddressEntry currentUser =
        Application.Session.CurrentUser.AddressEntry;
    if (currentUser.Type == "EX")
    {
        Outlook.ExchangeUser manager =
            currentUser.GetExchangeUser().GetExchangeUserManager();
        // Add recipient using display name, alias, or smtp address
        mail.Recipients.Add(manager.PrimarySmtpAddress);
        mail.Recipients.ResolveAll();
        mail.Attachments.Add(@"c:\sales reports\fy06q4.xlsx",
            Outlook.OlAttachmentType.olByValue, Type.Missing,
            Type.Missing);
        mail.Send();
    }
}