FiveTech Software tech support forums

... PROPERTYGET PTR Assistant() STDCALL dispatch PROPERTYGET BSTR Name() STDCALL dispatch PROPERTYGET BSTR Version() STDCALL dispatch FUNC PTR ActiveExplorer() STDCALL dispatch FUNC PTR ActiveInspector() STDCALL dispatch FUNC IDispatch CreateItem( [in] USERDEFINED ) STDCALL dispatch FUNC IDispatch ...

... function mytest() local oOutlook, oExp, oItem, nClass, tReceived oOutlook := TOleAuto():New( "Outlook.Application" ) oExp := oOutlook:ActiveExplorer oItem := myOlExp:Selection:Item(1) // This is supposed to return the class of the item object. // if oItem:Class = 42 then it should ...

read a body of a message of outllok we can make : Local oOutlook := TOleAuto():New( "Outlook.Application" ) Local myOlExp := oOutlook:ActiveExplorer ... cBody := oMail:body But often we have the body with html text we can read it from cBody := oMail:HTMLbody But I can show it as a text ...

... of Otto to drag and drop emails from outlook and insert to our dialog , now it not run ok because it give to us a problem Outlook.Application:ACTIVEEXPLORER:SELECTION:ITEM/0 S_OK: SAVEAS Why ? Any solution ? I try also with mapi security utility http://www.mapilab.com

... Size: 1,948,160 bytes Time from start: 0 hours 0 mins 19 secs Error occurred at: 27-04-2010, 01:56:03 Error description: Error Outlook.Application:ACTIVEEXPLORER:SELECTION:ITEM/0 S_OK: SENDEREMAILADDRESS Args: Stack Calls =========== Called from: source\rtl\win32ole.prg => TOLEAUTO:SENDEREMAILADDRESS(0)

... := TOleAuto():New( "Outlook.Application" ) for sample I cannot insert the variable oMail:From it make an error Error Outlook.Application:ACTIVEEXPLORER:SELECTION:ITEM/0 S_OK: FROM and I wish to save also the oMail:CC Now I can save only these data : oMail:subject, oMail:To, oMail:ReceivedTime, ...

I try with : function dropread() local oDlg LOCAL oOutlook := TOleAuto():New( "Outlook.Application" ) local myOlExp := oOutlook:ActiveExplorer local oMail local oGet local cKategorie := space(50) local cStichwort := space(50) local oK := .f. local dDatum := date() local dNachfassen ...

... AccessContacts("Na") End Sub Private Sub AccessContacts(ByVal findLastName As String) Dim folderContacts As Outlook.MAPIFolder = Me.ActiveExplorer() _ .Session.GetDefaultFolder(Outlook.OlDefaultFolders _ .olFolderContacts) Dim searchFolder As Outlook.Items = folderContacts.Items ...

... Private Sub ThisApplication_NewMail() Handles Me.NewMail Dim inBox As Outlook.MAPIFolder = Me.ActiveExplorer() _ .Session.GetDefaultFolder(Outlook. _ OlDefaultFolders.olFolderInbox) Dim inBoxItems As Outlook.Items = inBox.Items Dim newEmail As ...

... : http://fivetechsupport.com/forums/viewtopic.php?f=3&t=14671 Regards Uwe :lol: Thanks ukoening, I found this in google: Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 7095) Btn.Execute But a receive this error: Script: C:\VBS\SEND.VBS Line : 1 Caract: 1 Error : Object ...

... If Data.GetFormat(vbCFText) = True Then MsgBox ("test") End If End Sub 2) I don’t find a way how to dertermine the selected email (loOutlook.ActiveExplorer.Selection for me is not working.) Regards, Otto #define olFolderInbox 6 //----------------------------------------------------------------// ...

... dragged object altogether, and query Outlook directly. An entire example is included on the conference CD (DropMail.*), but the key is to use the ActiveExplorer property. Explorers and Inspectors in Outlook are the equivalent of Explorer interfaces and forms in VFP. You can access these to determine ...

... inserted some code to get all Emails from a folder. Regards Otto Sub SaveEmail() 'Declaration Dim itm As Outlook.MailItem Set olItms = Application.ActiveExplorer.CurrentFolder.Items On Error Resume Next For Each itm In olItms MsgBox (itm.SenderEmailAddress) Next itm End Sub