StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POAV when sending email via Outlook and Redemption
text
Body
copied!<p>Here is my code:</p> <pre><code>const olMailItem = 0; var olApp, OlNameSpace, OlItem, rdSafeItem, rdUtils: variant; begin olApp:= CreateOleObject ('Outlook.Application'); olNameSpace:= olApp.GetNamespace ('MAPI'); olNameSpace.Logon; olItem:= olApp.CreateItem (olMailItem); rdSafeItem:= CreateOleObject ('Redemption.SafeMailItem'); rdSafeItem.Item:= olItem; rdSafeItem.Subject:= 'Testing'; rdSafeItem.attachments.Add ('c:\windows\win.ini'); rdSafeItem.Recipients.Add ('test@testing.com'); rdSafeItem.Send; rdUtils:= CreateOleObject ('Redemption.MAPIUtils'); rdUtils.DeliverNow; olNameSpace.Logoff; varclear (rdUtils); varclear (rdSafeItem); varclear (olItem); varclear (olNameSpace); varclear (olApp); end; </code></pre> <p>After the email is sent, I get an access violation message at address A70D6D13 (this address seems to be constant). If I step through the entire procedure with F8, after the 'end' statement, the CPU window gets displayed at address A70D6D13, showing all the memory as ????. </p> <p>I'm using Delphi 7, Outlook 2003, Redemption 4.8.0.1184 What is missing from this code? </p> <p>EDIT: I've found a few other code snippets to send mail via Outlook/Redemption. Here is one such snippet which uses the OutlookApplication server.</p> <pre><code>begin outlookapplication1.Connect; NmSpace:= outlookapplication1.GetNamespace('MAPI'); NmSpace.Logon('', '', False, False); oItem:= outlookapplication1.CreateItem(olMailItem); sItem:= CreateOleObject('Redemption.SafeMailItem'); oItem.Subject:= 'my subject'; oItem.save; sItem.Item:= oItem; sItem.Recipients.Add('test@test.com'); sItem.Attachments.Add('C:\windows\win.ini'); sItem.save; SItem.send; outlookapplication1.Disconnect; end; </code></pre> <p>This too gives the same error. What is magical about the address of the AV? It must be a clue to the solution.</p> <p>TIA,</p> <p>No'am </p>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload