Inviare mail via VBA

Ciao a tutti.

Tramite VBA riesco ad inviare mail via Outlook utilizzando

CreateObject("Outlook.Application")

Siccome ho più account email da cui posso inviare, c'è la possibilità di scegliere volta per volta l'account?
In realtà vorrei inserire nel codice un account diverso da quello predefinito in Outlook, utilizzando, se esiste, una delle proprietà dell'oggetto (in Outlook ho come account di posta predefinito la mail interna, mentre per inviare mail all'esterno ho un altro account)

Inoltre mi sapete dire dove trovare un elenco di tutte le proprietà dell'Oggetto?

Grazie

Andrea

https://msdn.microsoft.com/it-it/lib.../ff863377.aspx

Originariamente inviato da AntonioG

https://msdn.microsoft.com/it-it/lib.../ff863377.aspx

In effetti avevo anche io trovato questo riferimento.

il codice (parte) che uso è

 Dim OutApp As Object
 Dim OutMail As Object
 
 Set OutApp = CreateObject("Outlook.Application")
 OutApp.Session.Logon
 Set OutMail = OutApp.CreateItem(0)

 On Error Resume Next
 With OutMail
 .To = Indirizzo
 .BCC = ""
 .Subject = "Inserire oggetto"
 .Body = "Inserire il testo"
 .Display
 End With

L'ho reperito in rete; quello che non riesco a trovare (semmai esista) è un elenco di tutti le...specifiche (scusate non mi viene il termine appropriato) che è possibile utilizzare nell'ambito del "With" (.To, .BBC, etc etc)

Magari tra quelle voci ci potrebbe essere anche qualcosa relativo all'account di posta da utilizzare


Grazie

Andrea

Andrea, in MSDN trovi tutto, vero è che serve dedicarcisi e leggere con attenzione...

Quello che chiedevi erano i Membri dell'Oggetto MailItem...? Intesi come Metodi/Eventi/Proprietà....?
Seguendo i Link:
https://msdn.microsoft.com/it-it/lib.../ff861252.aspx

L'oggetto NameSpace o Session consentono di accedere alla Collection Accounts, come esempio sotto:

Public Sub New_Mail()
Dim olNS As Outlook.NameSpace
Dim oMail As Outlook.MailItem
 
Set olNS = Application.GetNamespace("MAPI")
Set oMail = Application.CreateItem(olMailItem)
 
'use first account in list
    oMail.SendUsingAccount = olNS.Accounts.Item(1)
    oMail.Display
       
Set oMail = Nothing
Set olNS = Nothing
 
End Sub

Oppure

Sub Which_Account_Number()
'Don't forget to set a reference to Outlook in the VBA editor
    Dim OutApp As Outlook.Application
    Dim I As Long

    Set OutApp = CreateObject("Outlook.Application")

    For I = 1 To OutApp.Session.Accounts.Count
        MsgBox OutApp.Session.Accounts.Item(I) & " : This is account number " & I
    Next I
End Sub

Non c'è molto da inventarsi è tutto ben descritto e definito.

Originariamente inviato da Jocman

...

...
 Set OutMail = OutApp.CreateItem(0)

... elenco di tutti le...specifiche (scusate non mi viene il termine appropriato) che è possibile utilizzare nell'ambito del "With" (.To, .BBC, etc etc)
...

Guarda il tipo di oggetto che restituisce il metodo .CreateItem (è nella stessa pagina citata)
Ottieni un oggetto MailItem
Ti consiglio di buttare l'occhio su MailItem.Sender Property (Outlook), nonché di usare l'earlybinding, in questa fase, che attiva l'intellisense, un aiuto molto gradito (ripeto, almeno in questa fase, poi quando si tratterà di distribuire... è un'altra storia). Alla buonora Phil... ci ha già pensato @Alex.

Grazie Alex e Phil per l'aiuto (e soprattutto la pazienza)

Andrea