BorlandTalk.com

MikeInSwanse · Guest

The following code works except for the 'Attachments' line.

Any ideas what the correct format for attaching a file is?

The code is needed for CBuilder++ Version 6

#include "outlook_2k.h"
void __fastcall TFWMain::Button1Click(TObject *Sender)
{
Variant Outlook;
Variant MailItem;
Outlook = Variant::CreateObject("Outlook.Application");

MailItem = Outlook.OleFunction("CreateItem", olMailItem);

MailItem.OlePropertySet"TO",
VariantWideString"emailaddress (AT) orange (DOT) net"))) ;
MailItem.OlePropertySet("Subject" ,
Variant(WideString("Test Subject ")));
MailItem.OlePropertySet("Body" ,
Variant(WideString("Please find attached your documents")));

MailItem.OlePropertySet("Attachments",Variant(WideString(""SIGNMENT.XML"),Variant(WideString(""SIGNMENT.XML"));

MailItem.OleProcedure("Display");
}

BigStew · Guest

Firstly, please cut/paste code more carefully.
Your code won't actually compile.
A MailItem has an Attachments collection, so you need to add an item as
follows;

Variant Outlook;
Variant MailItem;
Variant Attachments;
AnsiString aFileName = "c:\Signment.xml";

Outlook = Variant::CreateObject("Outlook.Application");
MailItem = Outlook.OleFunction("CreateItem", olMailItem);
MailItem.OlePropertySet("TO", WideString("emailaddress (AT) orange (DOT) net"));
MailItem.OlePropertySet("Subject", WideString("Test Subject "));
MailItem.OlePropertySet("Body", WideString("Please find attached your
documents"));
if (FileExists(aFileName))
{
Attachments = MailItem.OlePropertyGet("Attachments");
Attachments.OleFunction("Add", WideString(aFileName));
}
MailItem.OleProcedure("Display");

Stew

"MikeInSwanse" <michael.radford (AT) ntlworld (DOT) com> wrote

MikeInSwansea · Guest

Excellent - It worked superbly.

Thanks for that and sorry about the cut-paste I tried to tidy it up and knackered it up!

One other request is where do I track down all the different options as to what I can do with Outlook?

BigStew · Guest

msdn is your best bet.

Stew

"MikeInSwansea" <michael.radford (AT) ntlworld (DOT) com> wrote