I am currently testing outlook redemption, but I have problems to convert
the required function (
HrIMessageToRFC822Message) to have it work with PB.
The prototype of this function on the web is
HrIMessageToRFC822Message(pMsg : IMessage; pSession : IMAPISession; var
lpCount : ULONG; var lppBuffer : pointer):HResult;stdcall;
Can somebody help me to convert in PB in something like
Function typevar HrIMessageToRFC822Message (...,...., ) library
"redemption.dll
OLEObject oleSession
Integer li_rc
oleSession = Create OLEObject
li_rc = oleSession.ConnectToNewObject("Redemption.RDOSession")
If li_rc = 0 Then
oleSession.Logon()
....
oleSession.Logoff()
End If
Destroy oleSession
Claude
"Roland Smith [TeamSybase]" <rsmith_at_trusthss_dot_com> a écrit dans le
message de news: 492438d6$1@forums-1-dub...
This is the example for importing a MSG file into a new mail item in the
Drafts folder
dim sItem, oItem
set sItem = CreateObject("Redemption.SafeMailItem")
set oItem = Application.Session.GetDefaultFolder(16).Items.Add(6)
sItem.Item = oItem
sItem.Import "c:\temp\test.msg", 3 'olMSG, olRFC822 and olTNEF formats are
supported
sItem.Save
I don't have it installed but here is my attempt at it:
OLEObject ole_sItem, ole_oItem
Integer li_rc
ole_sItem = Create OLEObject
li_rc = ole_sItem.ConnectToNewObject("Redemption.SafeMailItem")
If li_rc = 0 Then
ole_oItem =
ole_sItem.Application.Session.GetDefaultFolder(16).Items.Add(6)
ole_sItem.Item = oItem
ole_sItem.Import("c:\temp\test.msg", 3)
ole_sItem.Save()
ole_sItem.DisconnectObject()
End If
Destroy ole_sItem
Destroy ole_oItem
"Roland Smith [TeamSybase]" <rsmith_at_trusthss_dot_com> a écrit dans le
message de news: 49245b37$1@forums-1-dub...