Creazione e Invio Mail tramite Profili Outlook

ziobill

il 24 apr 2025, 20:04

6 risposte

ziobill

Pochi posts

Iscritto da: feb, 2023

Messaggi:: 28

Creazione e Invio Mail tramite Profili Outlook

24 apr 2025, 20:22

Un saluto a tutti Voi,

utilizzo access da molti anni, dove bene o male son sempre riuscito a gestire le mie attività creando semplici applicazioni in acces; in questi di solito si è sempre evidenziato l'esigenza di inviare invio mail in automatico con il VBA.

Oggi ho la necessità di creare mail sul profilo Numero 1, ma inviate con il profilo N° 2 e con il profilo N° 3. i 2 profili di fatti sono profili PEC configurati su outlook.

E' questo possibile?

gentilmente ringrazio Raffaele

6 Risposte

By65Franco
Molto attivo
Iscritto da
apr, 2023
Messaggi:
1466
Re: Creazione e Invio Mail tramite Profili Outlook
25 apr 2025, 22:06
Ciao,
attualmente che codice/metodo usi per inviare le E-Mail ?
Magari partendo da lì possiamo pensare come puoi approcciare e realizzare questa nuova esigenza.

ziobill

Pochi posts

Iscritto da: feb, 2023

Messaggi:: 28

Re: Creazione e Invio Mail tramite Profili Outlook

07 mag 2025, 14:01

Ci riprovo, questo è un esempio che contiene il metodo utilizzato per generare le mie mail in automatico.

 OutApp As Object
    Dim OutMail As Object
    Dim SigString, Signature As String
    Dim HTML, SQL As String
    Dim allegato As String
   
    
    terr = DLookup("Territorio", "Territorio", " id_Territorio=" & Forms!M_AQ!id_Territorio)
    CAT = DLookup("categoria", "categoria", "id_categoria =" & Forms!M_AQ!ID_Categoria)
    
 
        Set OutApp = CreateObject("Outlook.Application")
        OutApp.Session.Logon
        'Set OutMail = OutApp.CreateItem(0)
        
        Dim Modello As String
        Modello = DLookup("[ModelloMail_int]", "servizio")
        Set OutMail = OutApp.CreateItemfromTemplate(Modello) 'Carica Modello Mail con Classificazione Uso Inteno      
       
        
        SigString = DLookup("Folder_EmailFirma", "Servizio1") 'C:\Documents and Settings\876500\Dati Applicazioni\Microsoft\Signatures\Firma 150.htm"

        If Dir(SigString) <> "" Then
                Signature = GetBoiler(SigString)
        Else
                Signature = ""
        End If
     
         
            OutMail.To = DLookup("FSO_AA", "Servizio") 'Servizio '"" & Me!To_Mail
            OutMail.cc = "" & DLookup("FSO_CC", "Servizio") 'Me!Cc_Mail
           
            OutMail.BCC = ""
            OutMail.Subject = "Art. 47, commi da 1-bis a 1-septies, D.L. 34/2019 – Decreto 12 novembre 2019, n. 144 Fondo Salva Opere - Riferimento AQ: " & Num & " del " & Forms!M_AQ!Data_Stipula
            
            
            OutMail.bodyformat = olFormatHTML
            
           HTML = "<html><head></head><body> Questa mail è generata in automatico.<br><br>" _
            & "<html><head></head><body> Buongiorno,<br> in allegato l'Accordo Quadro indicato in oggetto.<br>"

             OutMail.HTMLbody = HTML & "><head></head><body>  <br><br>" & "<html><head></head><body>  " _
            & "<html><head> In applicazione all'Articolo 47, commi da 1-bis a 1-septies, D.L. 34/2019 - Decreto 12 novembre 2019 n. 144 Fondo Salva Opere," _
            & "<html><head> ed alle indicazioni pervenute si riportano di seguito le informazioni necessarie al versamento del contributo al fondo del MIT:<br><br><br>" _
            & " - AQ:" & Num & " - del " & Forms!M_AQ!Data_Stipula & " - MS -" & CAT & " -  " & terr & "<br> <br >" _
            & "- Importo dell'Appalto Euro: " & Format(Forms!M_AQ!Importo, "##,##0.00") & " <br><br>" _
            & "<html><head> - Ribasso contrattuale: " & Forms!M_AQ!Ribasso & "% <br><br>" _
            & " <html><head>-<b> Importo contributo 0,5% del valore del ribasso offerto dall'aggiudicatario: Euro" & Format(Forms!M_AQ!FSO_Importo, "##,##0.00") & "<b><br><br><br><br>" _
            & "<html><head> Cordiali saluti, <br>"

  


            percorso_aq = DLookup("folderAQ", "servizio") & Forms!M_AQ!Num & "\" & "AQ_" & Num & ".pdf"
         
                If Dir(percorso_aq) <> "" Then
                        OutMail.Attachments.Add "" & percorso_aq
                         OutMail.Display
                        FSO_Trasmesso_Data = Date
                        
                 Else
                 
                        percorso_aq = ""
                         FSO_Trasmesso_Data = Null
                        MsgBox "Il file non è stato trovato. Verifica che il nome dell'AQ sia corretto. (esempio: AQ_1234 - 1999"
                 End If
                        
                       
               
esci:

            Set RSTT = Nothing
            Set dbs = Nothing

            'OutMail.Display

       
        On Error GoTo 0
 
        Set OutMail = Nothing
        Set OutApp = Nothing

Z
ziobill
Pochi posts
Iscritto da
feb, 2023
Messaggi:
28
Re: Creazione e Invio Mail tramite Profili Outlook
07 mag 2025, 14:07
Dovrei inviare una mail da generare su un profilo diverso da quello normalmente in linea; il secondo Profilo è una PEC.
grazie per l'eventuale aiuto
By65Franco
Molto attivo
Iscritto da
apr, 2023
Messaggi:
1466
Re: Creazione e Invio Mail tramite Profili Outlook
07 mag 2025, 15:15
.... "Ci riprovo" ???
24/04/2025 - ziobill ha scritto:
utilizzo access da molti anni, dove bene o male son sempre riuscito a gestire le mie attività
Andiamo per ordine...
alle 20:22 del 24 aprile 2025 (è come dire il 25 aprile) apri un Thread con una richiesta, molto generica e senza indicare con quale software/codice vengono inviate le e-mail
Questo impedisce chiunque nel dare una rispsosta senzata. Non ci sono le basi per avviare una discussione in quanto non si sa di cosa si parla.
Viene espresso un desiderio e quindi un oggetto... ma senza nessun contenuto. (tanto per capirsi e mettere subito in chiaro la questione)
25/04/2025 - By65Franco ha scritto:
attualmente che codice/metodo usi per inviare le E-Mail ?
Magari partendo da lì possiamo pensare come puoi approcciare e realizzare questa nuova esigenza.
Ciò non toglie, immediatamente il giorno dopo, che comunque mi presto a chiedere lumi.
Con tale risposta, se fosse stata data, sarebbe stato banalmente e semplicemente fornita una adeguata risposta risolutiva alla questione.
Ma tutto tace.....
07/05/2025 - ziobill ha scritto:
Ci riprovo, questo è un esempio che contiene il metodo utilizzato per generare le mie mail in automatico.
Da Aprile veniamo a Maggio (il mese delle rose...ma qui son tutte spine), è passato quasi un mese dall'apertura del Thread
e l'esordio è del tipo " Ci riprovo "
Sul serio ????!!!!?????
E' uno scherzo ! ... siamo su scherzi a parte oppure ? E'una burla di vero cattivo gusto!
Questo modo di porsi, a mio modo di vedere, è sintomo di grande maleduzione e mancanza di rispetto. E qui mi fermo con tali considerazioni.
24/04/2025 - ziobill ha scritto:
utilizzo access da molti anni
In conclusione:
1. prendiamo atto dell'annale esperienza con Microsoft MsAccess ...... mah...
2. viene postato un codice che evidentemente non hai scritto tu (magari solo un copia incolla senza sapere di cosa si tratta)
  dopo anni e anni di "utilizzo access" (tua dichiarazione da splendente) non sai cosa c'è scritto in quel codice ?
  tra le altre cose .... un codice scritto male, confusionario, ripetitivo, non segue buone pratiche né nella struttura, né nella gestione degli oggetti o degli errori, senza arte e ne parte... proprio buttato lì con disprezzo! ... bah...
  non sai come funziona il codice, cosa fa e in quale modo invia le e-mail ? ... bah ...
3. a fronte dei primi due punti sopra riportati, si evince la completa incapacità di analizzare e programmare in Vba MsAccess (e questo è un fatto!)
4. ti proponi come ti sei posto in modo irriverende e quant'altro... mah...
.
Preso atto di quanto appena riportato si evince che:
non sei in grado di leggere un codice, non sei in grado di analizzare un codice, non sai cosa fa quel codice.
Ti aspetti la "Pappa Pronta" ? hhhmmmm...
Appunto, l'unica risposta non potrebbe essere altro che la "pappa pronta"...tanto è banale e semplice implementare con una misera riga di codice e una impostazione quanto richiesto.
Proprio roba da 30 secondi tra scrivere la riga di codice e testarlo, non di più.
Però c'è modo e modo di porsi, il rispetto, l'educazione (queste sono cose molto importanti, servono per saper vivere)... per quanto mi riguarda questo Thread non merita nessuna risposta!!!
(magari riprova tra un mese o due... o anche tre o quattro... ma anche il prossimo anno o decennio... vedi tu)
N.B.
hai anche l'opzione di rivolgersi ad una software house e pagare.
( pensa te...per scrivere una sola riga di codice... bah... c'è modo e modo )
Z
ziobill
Pochi posts
Iscritto da
feb, 2023
Messaggi:
28
Re: Creazione e Invio Mail tramite Profili Outlook
08 mag 2025, 14:45
Mi scuso, grazie lo stesso, va bene così
probabilmente ha litigato con tua moglie. Non ci sentiamo da un paio d'anni, ti sei incattivito, sei sempre stato gentile ed i nostri incontri, tutti nella normalità. Sei uno scostumato!
un caro saluto,
By65Franco
Molto attivo
Iscritto da
apr, 2023
Messaggi:
1466
Re: Creazione e Invio Mail tramite Profili Outlook
08 mag 2025, 17:08
Ma questo rispecchia solo la mia sensibilità...
poi chiunque nel Forum, se lo ritiene opportuno, risponderà al Thread.
(se a distanza di un mese ancora nessuno è intervenuto, probabilmente qualche motivo ci sarà)

Devi accedere o registrarti per scrivere nel forum

6 risposte