FiveTech Software tech support forums

... = objOutlook.GetNamespace("MAPI")Set colFolders = objNamespace.Folders  return objNamespace object with methods like GetDefaultFolder(), and GetAddressEntryFromID(), along with a Folders object, containing Methods like Add(), GetFirst(), GetLast(), and a count property. ...

I found it, the problem isthat I have multiple accounts in outlook, and it was searching in the wrong account.
How can I define the Get( "GetDefaultFolder", "6" ) from a specific account?

Thanks,

... ;Inbox //oFolder=9 ;Calendar //oFolder=10 ;Contacts //oFolder=11 ;Journal //oFolder=12 ;Notes //oFolder=13 ;Tasks oFolder := oNameSpace:GetDefaultFolder(6) nNumeroTotalEmail := oFolder:Items:Count FOR i:=nNumeroTotalEmail TO 1 STEP -1 nContaEmail++ cAssunto := oFolder:Items( i ):Subject ...

... LOCAL oOutlook := TOleAuto():New( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:getnamespace('MAPI') LOCAL oFolder := oNameSpace:GetDefaultFolder( olFolderInBox ) LOCAL nItems LOCAL oMail LOCAL iMsg nItems := oFolder:Items:Count FOR iMsg := 1 TO nItems oMail := oFolder:Items[ ...

... LOCAL oOutlook := TOleAuto():New( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:getnamespace('MAPI') LOCAL oFolder := oNameSpace:GetDefaultFolder( 5 ) LOCAL nItems LOCAL oMail LOCAL iMsg LOCAL cNomeMsg nItems := oFolder:Items:Count oMeter:nTotal := nItems FOR iMsg := 1 TO nItems ...

... "Outlook.Application" ) oNameSpace := oOL:Get( "GetNameSpace", "MAPI" ) oInbox := oNameSpace:Get( "GetDefaultFolder",6) // 6 = Inbox-Folder oCMSFolder := oInbox:Folders("cmsmail") for each oItem In oCMSFolder:Items cSender := '' cSubject ...

... "Outlook.Application" ) oNameSpace := oOL:Get( "GetNameSpace", "MAPI" ) oInbox := oNameSpace:Get( "GetDefaultFolder",6) // 6 = Inbox-Folder Is there a way to open a non default folder. Cheers Colin

... 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 Dim counter As Integer = 0 For ...

... 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 Outlook.MailItem inBoxItems ...

... "Outlook.Application" ) oNameSpace = oOL:Get( "GetNameSpace", "MAPI" ) oInbox = oNameSpace:Get( "GetDefaultFolder", "6" ) // 6 = Inbox-Folder nCount := oInbox:ITEMS:Count() for i := 1 to nCount aadd(aData,oInbox:Items[ i ]:Subject) ...

... := CREATEOBJECT( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:GetNameSpace("MAPI") LOCAL oContacts := oNameSpace:GetDefaultFolder( olFolderContacts ) LOCAL i LOCAL aStruct := {} AADD( aStruct , { "NOME" , "C" , 50 , 0 } ) AADD( aStruct , { "INDI" ...

... := CREATEOBJECT( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:GetNameSpace("MAPI") LOCAL oContacts := oNameSpace:GetDefaultFolder( olFolderContacts ) LOCAL i SET DATE BRITISH FOR i = 1 TO oContacts:Items:Count ? oContacts:Items[ i ]:FullName , ; oContacts:Items[ ...

... "PocketOutlook.Application" ) pContact=CreateObject( "PocketOutlook.ContactItem" ) pItems=CreateObject( "PocketOutlook.Items" ) pItems = pOLA.GetDefaultFolder(olFolderContacts).Items For i = 1 To pItems.Count pContact = pItems.Item(i) msginfo(pContact.FileAs) Next i * MsgInfo( ValType( CreateObject( ...

... lFOUND := .F., ; I := 0 TRY oOutlook := CREATEOBJECT( "Outlook.Application" ) oNameSpace := oOutlook:GetNameSpace("MAPI") ocalendar := oNameSpace:GetDefaultFolder(outlookFolderCalendar ) FOR I = 1 TO ocalendar:Items:Count IF DTOS(ocalendar:Items[ i ]:START) = DTOS(CTOD(CDATE)) .AND. ocalendar:Items[ ...

... ) lOutlookOK := .T. IF ! lOutlookOK RETURN ( 0 ) ENDIF oNameSpace = oOL:Get( "GetNameSpace", "MAPI" ) oContacts = oNameSpace:Get( "GetDefaultFolder", "6" ) // 6 = Inbox-Folder FOR nContador = 1 TO oContacts:ITEMS:Count() oNewContact = oContacts:ITEMS( nContador ) cSenderName := ...