OLEObject

[Alexis_Colon_Lugo]

Hi
how i find the OLEObject values for outlook.
example i need to now the value for (send from)
thanks

[Alexis_Colon_Lugo]

how i do this on xojo

Sub SendUsingAccount() 
 
 Dim oAccount As Outlook.account 
 
 For Each oAccount In Application.Session.Accounts 
 
 If oAccount.AccountType = olPop3 Then 
 
 Dim oMail As Outlook.MailItem 
 
 Set oMail = Application.CreateItem(olMailItem) 
 
     oMail.Subject = "Sent using POP3 Account" 
 
     oMail.Recipients.Add ("someone@example.com") 
 
     oMail.Recipients.ResolveAll 
 
 Set oMail.SendUsingAccount = oAccount 
 
     oMail.Send 
 
 End If 
 
 Next 
 
End Sub

[John_Hansen]

Hi,

Here are some links that might help you

AddressBook Object for Windows? Outlook Import/Export?

Thank you John or sharing. The OLEObject looks like a much better approach than mine. Time to dive back into MS reference materials. (yuck)

Outlook Calendar OLE Question

Edit: Moved to General in hopes of an answer as no one in Target: Windows wast biting Thanks to John Hansen’s example https://forum.xojo.com/5315-addressbook-object-for-windows-outlook-import-expo/0 I have almost refactored my Outlook Calendar code to be much more efficient. I have one niggling problem left. [code] Dim oResults() As VAD_CalendarEvent Dim olFolderCalendar As Integer = 9 Dim oApp As OLEObject oApp = New OLEObject("Outlook.Application") Dim oNameSpace As OLE…

How To Search In Outlook Calendar With Use Of OLEObject

I just had a little bit of time to make some more examples how to get the entries from the Outlook 2010 Calendar folder. I used the methods and properties from Outlook 2003, so it might work from version Outlook 2003. Example 1: 'This example gets all appointments from default Outlook calendar and display only the first three appointments. Dim myOlApp As OLEObject Dim myNamespace As OLEObject Dim myAppointments As OLEObject Dim myItems As OLEObject Dim myItem As OLEObject D…

http://www.dimastr.com/redemption/home.htm