Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Mapi error
Message
From
16/03/2007 05:28:57
 
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Title:
Miscellaneous
Thread ID:
01203958
Message ID:
01204424
Views:
18
Yes, it also worked for me for a while - but then it stopped working.
And no - I did not tamper with the code - nor did anybody else.

It's scary, is what it is! :-))

And btw, Outlook is not part of this this, at least not as far as I know.
Outlook just uses CDO too?

>Worked fine for me except for the Outlook Security message.
>
>May be your Outlook is not properly configured?
>
>BTW, was it your address? If yes, you should get my e-mail.
>
>>
>>Try
>>   loWSH       = Createobject("wscript.shell")
>>   cProfile    = loWSH.RegRead([HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\DefaultProfile])
>>   loWSH       = Null
>>Catch to oException
>>   oException  = Null
>>Endtry
>>
>>oSession = CreateObject([MAPI.Session])
>>oSession.Logon(cProfile)
>>
>>NEW = oSession.OUTBOX.Messages.Add                        && Create a new message.
>>NEW.SUBJECT = "Test Mail with OLE Messaging"              && Add a message subject.
>>NEW.Text = "Mail System Test" + Chr(13) + "using OLE!"    && Actual message text.
>>
>>SENDTO = NEW.RECIPIENTS.Add                               && Add a recipient object
>>SENDTO.Name="pp@webhiker.dk"                              && Email address to mail message to
>>SENDTO.Type=1                                             && 1= "TO:"; 2="CC:"; 3="BCC:"
>>
>>NEW.Update                                                && Required to save changes to a message object.
>>NEW.Send(1,0,0)                                           && Parameter 1 = save copy in "Sent Mail" folder.
>>oSession.LOGOFF                                           && Release the MAPI object.
>>
>>
>>
>>Now, all works well, the message gets saved - except the .Send method throws an exception.
>>
>>Here is the error message
>>
>>Error       : 1429
>>Message     : OLE IDispatch exception code 17389 from Collaboration Data Objects: [Collaboration Data Objects - [E_FAIL(80004005)]]..
>>
>>
>>I've looked on the internet, but found nothing that would indicate a reason for this particular error.
>>
>>TIA
Peter Pirker


Whosoever shall not fall by the sword or by famine, shall fall by pestilence, so why bother shaving?

(Woody Allen)
Previous
Reply
Map
View

Click here to load this message in the networking platform