Scegliere l’account di outlook per inviare mail con vba excel

.SendUsingAccount = OutApp.Session.Accounts.Item(1)

Funziona!


Fonte:

https://www.rondebruin.nl/win/s1/outlook/account.htm

Use the mail account you want in your mail macro

Important read this :

The code on this page is only working when you use Outlook as your mail program.
Copy the code in a Standard module of your workbook, if you just started with VBA see this page.
Where do I paste the code that I find on the internet

 

Change Sender name and Reply address

The easiest way is to add this code line that change the sender name and reply address in the Outlook macro examples on my site.

‘The receiver can see the original mail address in the properties if he want
 .SentOnBehalfOfName = “””SenderName”” <Reply@Address.com>”

 

Use SendUsingAccount in Excel/Outlook 2007 or higher

If you want to mail from another account then your default mail account in Outlook 2007-2016 then you can use SendUsingAccount, this is added to the object model in Outlook 2007.

First add a reference to the Microsoft Outlook Library in your Excel workbook

1) Go to the VBA editor, Alt -F11
2) Tools>References in the Menu bar
3) Place a Checkmark before Microsoft Outlook ? Object Library
? is the Outlook version number

First we must know the account number that we want to use.
Run the macro below so you know the account number that you must use in the mail macro.

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

Now you know the number of the account that you want to use in your mail macro you can use the following test subroutine that send a small text in an e-mail message. Change the mail address and the Item number “Item(1)” in the macro before you run it.

Sub Mail_small_Text_Change_Account()
'Only working in Office 2007-2016
'Don't forget to set a reference to Outlook in the VBA editor
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)

    strbody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"

    On Error Resume Next
    With OutMail
        .To = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = strbody

        'SendUsingAccount is new in Office 2007
        'Change Item(1)to the account number that you want to use
        .SendUsingAccount = OutApp.Session.Accounts.Item(1)

        .Send   'or use .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Note : Got mails from 2016 users that that Set is needed before .SendUsingAccount

Annunci

Forse tutto era stato possibile

Ma il pensiero che ci fossero tante cose da sapere su ogni singolo oggetto lo respingeva. Avrebbe avuto bisogno di un’altra vita, di rinascere, perché la sua prima nascita, per il luogo il tempo in cui era venuta, lo aveva escluso da quel mondo straniero. Al di fuori della sua volontà era stata fatta una scelta, e lui non aveva che da attenervisi. Bernard aveva ragione. C’erano cose che andavano respinte anche quando erano possibili. Ora che aveva superato i quarant’anni non sarebbe più diventato un pianista, non avrebbe imparato il giapponese, di queste era certo, e, allo stesso tempo, questa certezza lo rattristava, come se, finalmente, la vita cominciasse a rendere evidenti i suoi limiti rendendo così visibile anche la morte: non era vero che tutto era possibile. Forse tutto era stato possibile, ma ormai non lo era più.

Rituali, p. 155 (Cees Nooteboom)
FullSizeRender.jpg

rappresentazione grafica: bozza n.3

Da qualche parte

La tesi è che la società è divisa in due grandi gruppi: gli Anywhere, i Dovunque, persone con un buon livello di istruzione che abbracciano la mobilità e si trovano a loro agio nel mondo fluido contemporaneo, e i Somewhere, i Da qualche parte, generalmente meno istruiti, radicati in un posto e che enfatizzano valori come la sicurezza e l’attaccamento a un gruppo.

David Goodhart

The road to Somewhere: the Populist Revolt and the Future of Politics
La lettura, Luigi Ippolito, 9 aprile 2017

La loro faccia

Dobbiamo considerare che nei secoli XVIII e XIX la lettura aveva una qualità assai diversa da quella di oggi.I personaggi famosi erano noti per i loro scritti, non per il loro aspetto o la loro oratoria. Pensare a loro voleva dire pensare a quello che avevano scritto; il giudizio sulle loro opinioni, argomentazioni e conoscenze era codificato nella parola scritta. Per capire quanto sia diverso il metro di valutazione di oggi, basta riflettere al modo con cui pensiamo agli ultimi presidenti; o ai predicatori, agli avvocati, agli scienziati divenuti famosi in questi ultimi tempi. Se pensiamo a Richard Nixon, o a Jimmy Carter, o anche ad Albert Einstein, la prima cosa che ci viene in mente è la loro faccia, soprattutto come ce l’ha trasmessa la televisione (nel caso di Einstein, in fotografia).

Delle loro parole, non ci viene in mente quasi nulla. Ecco la differenza nel modo di pensare tra una civiltà fondata sulla parola e una fondata sull’immagine.

(Divertirsi da morire, Neil Postman, p. 64)

Nixon Kitchen DebatesMAGNUM Photos / Elliott Erwitt