Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 6 su 6

Inviare mail via VBA

  1. #1
    Jocman non è in linea Scolaretto
    Post
    384
    Like Inviati  
    0
    Like Ricevuti  
    0
    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

  2. #2
    Post
    17,513
    Blogs
    6
    Like Inviati  
    6
    Like Ricevuti  
    36
    ℹ️ Leggi di più su AntonioG ...

  3. #3
    Jocman non è in linea Scolaretto
    Post
    384
    Like Inviati  
    0
    Like Ricevuti  
    0
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    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

  4. #4
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Post
    16,832
    Like Inviati  
    0
    Like Ricevuti  
    25
    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.
    ℹ️ Leggi di più su @Alex ...

  5. #5
    Post
    1,846
    Like Inviati  
    0
    Like Ricevuti  
    6
    Quote Originariamente inviato da Jocman Visualizza il messaggio
    ...
    ...
     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.

  6. #6
    Jocman non è in linea Scolaretto
    Post
    384
    Like Inviati  
    0
    Like Ricevuti  
    0
    Grazie Alex e Phil per l'aiuto (e soprattutto la pazienza)

    Andrea

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Inviare mail tramite vba
    Da giumbe nel forum Microsoft Excel
    Risposte: 9
    Ultimo Post: 28-05-2013, 13:56
  2. Inviare URL in PHP con mail()
    Da schizzechea nel forum PHP
    Risposte: 4
    Ultimo Post: 14-10-2008, 10:00
  3. inviare mail
    Da massimo74rn nel forum ASP 3, ASP .Net
    Risposte: 1
    Ultimo Post: 24-07-2008, 20:38
  4. Outlook inviare mail
    Da motoboy nel forum Visual Basic 6
    Risposte: 8
    Ultimo Post: 03-06-2007, 16:00
  5. inviare e-mail
    Da Diabolik nel forum Visual Basic 6
    Risposte: 4
    Ultimo Post: 03-11-2005, 21:05