|
SAM
|
Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules. |
This small sample demonstrates how to get the default account with the Redemption.
Public Function GetDefaultMailAccount() As String
Dim Session As Redemption.RDOSession
Dim List As Redemption.RDOAccountOrderList
Set Session = CreateObject("redemption.rdosession")
Session.LogOn ""
' The first object of the sorted list is always the default account
Set List = Session.Accounts.GetOrder(acMail)
GetDefaultMailAccount = List.Item(1).Name
End Function