Board index » delphi » CC and BCC in TMailITem

2006-10-11 05:02:34 AM
delphi29
Is there a way to send carbon copies and blind copies using the TMailItem
component?
How about seeing the message before sending it?
 

Either set the MailItem.CC and BCC properties to a list of ";" separated
address (or names that can be e resolved to addresses) or call
MailItem.Recipients.Add(...) to get a Recipient object, then set its Type
property to olCC or olBCC.
To display a message, call MailItem.Display()
Dmitry Streblechenko (MVP)
www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"SCAPCA" <XXXX@XXXXX.COM>writes

Thanks for getting back to me.
Its working nicely, but it keeps re-opening Outlook so I have 3 or 4 copies
of Outlook across the task bar. Is there a way to check to see if I already
have it open?
"Dmitry Streblechenko" <XXXX@XXXXX.COM>writes

If you use the late binding:
try
outlook := GetActiveOleObject('Outlook.Application')
except
outlook := CreateOleObject('Outlook.Application');
end;
"SCAPCA" <XXXX@XXXXX.COM>writes

What does? There is only one instance of outlook.exe running at any time.
The extra buttons correspond to the explorers (MAPIFolder.Display or
MAPIFolder.GetExplorer.Display) or inspectors (MailItem.Display or
MailItem.GetInpspecvtor.Display).
Do you mean the MailItem.Display line? If you explicitly call that,
wouldn't you want/expect the mail item to be displayed?
Dmitry Streblechenko (MVP)
www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"SCAPCA" <XXXX@XXXXX.COM>writes

I am using the following code (the same as in Deborah Pates page):
NmSpace := Outlook.GetNamespace('MAPI');
NmSpace.Logon('', '', False, False);
Folder := NmSpace.GetDefaultFolde(olFolderInbox);
Folder.Display;
MI.ConnectTo(Outlook.CreateItem(olMailItem) as MailItem);
MI.Recipients.Add(XXXX@XXXXX.COM);
MI.Body := mymessage;
MI.Send;
where Folder is an MAPIFolder and NmSpace is a NameSpace. I can assume,
then, that "Folder.Display" is causing the multiple instances of the Outlook
explorer to appear across the task bar.
"Dmitry Streblechenko" <XXXX@XXXXX.COM>writes

Check if Application.ActiveExplorer is not nil, then set the
Explorer.CurrentFolder property to your other folder instead.
Dmitry Streblechenko (MVP)
www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"SCAPCA" <XXXX@XXXXX.COM>writes

That worked great too. How 'bout using Return Receipt. Anyway I can have
the e-mail send us a return receipt when the message is delivered (our
lawyer recommended this one, so I am taking it pretty seriously).
"Dmitry Streblechenko" <XXXX@XXXXX.COM>writes

MailItem.ReadReceiptRequested
Look at the Outlook_TLB.pas generated by Delphi or <plug>use OutlookSpy
(url below) to look at the live Outlook and MAPI objects </plug>
Dmitry Streblechenko (MVP)
www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"SCAPCA" <XXXX@XXXXX.COM>writes

Its working out pretty well. At least I don't get an error when I run the
program, but I don't get a Read Receipt, either. Also, When I check to see
if Outlook.ActiveExplorer is nil, I get an error if Outlook isn't open. Is
there a way to check to see if the app is open and if it isn't to open it?
Sorry if I am asking a lot, but I am so close.
"Dmitry Streblechenko" <XXXX@XXXXX.COM>writes

Does it work Ok if you request a read receipt using the Outlook UI?
You get an error because Outlook object is nil? Or for some other reason?
Dmitry Streblechenko (MVP)
www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"SCAPCA" <XXXX@XXXXX.COM>writes

I never get the Outlook UI. It just asks about access to the address book
and asks permission to send the e-mail. I am never given the option to see
the message before it is sent, and so can not manually set the delivery/read
receipt.
I get the error when Outlook is not running. Here is the code I used:
Outlook := CoOutlookApplication.Create;
NmSpace := Outlook.GetNamespace('MAPI');
NmSpace.Logon('', '', False, False);
Folder := NmSpace.GetDefaultFolder(olFolderInbox);
if NOT (Outlook.ActiveExplorer = nil) then
Outlook.ActiveExplorer.CurrentFolder
else
Folder.Display;
MI.ConnectTo(Outlook.CreateItem(olMailItem) as MailItem);
MI.OriginatorDeliveryReportRequested;
When I eliminate lines 5 thru 7 it brings up Outlook (once every time I send
an e-mail).
"Dmitry Streblechenko" <XXXX@XXXXX.COM>writes

1. that is not what I asked - what happens if you open Outlook, click New,
type the e-mail address, click "Options" button and specify "Request a read
receipt for this message"?
2. Of course, you are not setting the current folder. Change the line
Outlook.ActiveExplorer.CurrentFolder
to
Outlook.ActiveExplorer.CurrentFolder = Folder;
Dmitry Streblechenko (MVP)
www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"SCAPCA" <XXXX@XXXXX.COM>writes

1. Nothing
2. That worked great. Thanks.
"Dmitry Streblechenko" <XXXX@XXXXX.COM>writes