Html emails with attachments

[Tomski]

Hello!
I've been trying to implement sample code #1 from
http://www.outlookcode.com/d/code/htmlimg.htm and it doesn't work for me.
I use Delphi and Outlook 2000.

I'm successfully logged on. OLMain is a global object:

OLMain.OLS := CoApplication_.Create;
OLMain.NS := OLS.GetNamespace('MAPI');
OLMain.NS.Logon(sUser, sPass, true, true);
....
I add mail:

FEmail := MailItem(OLMain.Outbox.Items.Add(olMailItem));

Set some properties....
....
Now I'm trying to embed pictures:


oSession := MAPI_TLB._Session(CreateOLEObject('MAPI.Session'));
try
sPass := CRMEx.GetLoginData(sUser, sServer); // obtain logon
information
try
if FindFirst(FDir + '*.*', faAnyFile-faDirectory-faVolumeID, sr) =
0 then begin // get all images from certain dir
repeat
if ExtractFileExt(sr.Name) <> '.html' then begin
vAtts := FEmail.Attachments;
vAtt := vAtts.Add(OGetUniversalName(FDir + sr.Name),
olByValue, 1, ExtractFileName(FDir + sr.Name));
FEmail.Close(olSave);
eid := FEmail.EntryID;
sid := OLMain.WorkFolder.StoreID;
FEmail := nil;
vAtts := nil;
vAtt := nil;
try
oSession.Logon(sUser, sPass, true, true, 0, true,
EmptyParam); // I logon to the existing session
try
oMsg := Unassigned;
oMsg := oSession.GetMessage(eid, sid); // here comes an
exception:

// The file C:\Documents and Settings\Administrator\Local
Settings\Application Data\Microsoft\Outlook\mailbox.pst
// is in use and could not be accessed. Close any application that is using
this file, and then try again.
// [Personal Folders - [MAPI_E_EXTENDED_ERROR(80040119)]]

oAttachs := oMsg.Attachments;
oAttach := oAttachs.Item(oAttachs.Count);
colFields := oAttach.Fields;
oField := colFields.Add(CdoPR_ATTACH_MIME_TAG,
'image/jpeg');
oField := colFields.Add(CdoPR_ATTACH_CONTENT_ID,
EncodeBase64(sr.Name));
//HideAttachments

oMsg.Fields.Add('{0620080000000000C000000000000046}0x8514', vbBoolean,
True);
oMsg.Update;
sTresc := StringReplace(sTresc, sr.Name,
'cid:'+EncodeBase64(sr.Name), [rfIgnoreCase, rfReplaceAll]); //html body
except
on E: Exception do
ErrMsg(E.ClassName, E.Message);
end;
finally
FEmail := MailItem(OLMain.Namespace.GetItemFromID(eid,
sid));
oField := Unassigned;
colFields := Unassigned;
oMsg := Unassigned;
oSession.Logoff;
end;
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
FEmail.HtmlBody := sTresc;
finally
end;
finally
oSession := nil;
end;


Do I have to OLMain.NS.Logoff ?

 

[Tomski]

Hello!
I've been trying to implement sample code #1 from
http://www.outlookcode.com/d/code/htmlimg.htm and it doesn't work for
me.
I use Delphi and Outlook 2000.

......

The topic should be "Html emails with images" not "attachments"...
Any help appreciated

 

[Dmitry Streblechenko \(MVP\)]

Do not call Session.Logon in CDO with the NewProfile parameter = true.
Request an existing session (already created by Outlook).

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Tomski]

Do not call Session.Logon in CDO with the NewProfile parameter = true.
Request an existing session (already created by Outlook).

Thanks Dmitry, but that doesn't work. I've tried both true and false with
same result...

 

[Dmitry Streblechenko \(MVP\)]

The trick is to pick up the existing session, so that the PST provider does
not get loaded twice. Did you try Logon with no parameters at all?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Tomski]

Thanks Dmitry, but that doesn't work. I've tried both true and false
with same result...

And here's one more question:
When I use Session.Logon method, it returns Null. What does it mean? What
shoud I expect?

 

[Tomski]

The trick is to pick up the existing session, so that the PST
provider does not get loaded twice. Did you try Logon with no
parameters at all?

Yes, I've tried ALL combinations. It doesn't work even if I set only
NewSession := false.

 

[Dmitry Streblechenko \(MVP\)]

Then your only other option is to use the MailItem.MAPIOBJECT (which
evaluates to IMessage) either directly using Extended MAPI or indirectly
through Redemption - see
http://www.dimastr.com/redemption/objects.htm#examples and scroll to "Create
an HTML message with an embedded image".

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Dmitry Streblechenko \(MVP\)]

Hmmm... The type library does say that Logon returns variant, but I have
never seen the returned value documented or used anywhere.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Tomski]

Hmmm... The type library does say that Logon returns variant, but I
have never seen the returned value documented or used anywhere.

Nor did I. Btw it returns Null in my case.

 

[Tomski]

Then your only other option is to use the MailItem.MAPIOBJECT (which
evaluates to IMessage) either directly using Extended MAPI or
indirectly through Redemption - see
http://www.dimastr.com/redemption/objects.htm#examples and scroll to
"Create an HTML message with an embedded image".

Yes, I've just started to do it that way. I'd say I read your mind