OLEObject

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

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

Hi,

Here are some links that might help you :slight_smile:

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

Forum for Xojo Programming Language and IDE. Copyright © 2021 Xojo, Inc.