Macro email

[DIEGO100Partecipante DIEGO100]

Buonasera con la presente vi chiedo un codice vba per inviare email, per office 2021

[alexps81Moderatore alexps81 Karma: 58 pts]

Non mi è mai capitato di spedire una mail tramite VBA in quanto non utilizzo Outlook...quindi ti suggerisco di aspettare il consiglio di altri esperti. Nel frattempo di giro un codice che dovrebbe funzionare.

Option Explicit

Sub InvioEmail()

Dim emailApp As Object
Dim newEmail As Variant

Set emailApp = CreateObject("Outlook.Application")

With emailApp.CreateItem(newEmail)
    .To = "indirizzomail@email.it" '<---indirizzo di spedizione
    .Subject = "Oggetto email" '<---Oggetto del messaggio
    .Body = "Corpo email" '<---Corpo mail
    .Attachments.Add "Allegato" '<--Indicare il percoso + nome allegato completo di estensione
    .Display '<---mostra l'applicativo Outlook pronto per la spedione della email
    '.Send '<--decommentare (e commentare .Display) per spedizione mail immediata
End With

Set emailApp = Nothing

End Sub

[DIEGO100 DIEGO100]

Vi ringrazio infinitamente 

[alfrimpaPartecipante alfrimpa Karma: 33 pts]

In questa discussione era inizialmente allegato un file perchè ora non c'è più?

[DIEGO100Partecipante DIEGO100]

Buongiorno ho cancellato il file per aggiornamento.

Allegati:

You must be logged in to view attached files.

[alexps81Moderatore alexps81 Karma: 58 pts]

Riguardo alla richiesta di codice per invio email...a cosa serve questo allegato?

[DIEGO100Partecipante DIEGO100]

Buongiornola richiesta del codice di invio email, serve ad inviare il foglio convertito in pdf, a consulenti, e datore di lavori

[alexps81Moderatore alexps81 Karma: 58 pts]

DIEGO100 ha scritto:

Buongiornola richiesta del codice di invio email, serve ad inviare il foglio convertito in pdf, a consulenti, e datore di lavori

Quale foglio? Qui ce ne sono 13. E poi i vari campi (indirizzo di spedizione, oggetto e corpo della mail) da dove li prelevi? Non sto capendo se la tua è un'ulteriore richiesta di aiuto oppure è giusto una spiegazione al fatto che ti servisse un codice adatto alla spedizione delle email 

[DIEGO100Partecipante DIEGO100]

Buongiorno vi allego il foglio (  in preparaziome ) dove ci sono alcuni indirizzi email. Il foglio sara' integrato al foglio alla fine

Allegati:

You must be logged in to view attached files.

[DIEGO100Partecipante DIEGO100]

Buongiorno vi allego il foglio aggiornato con oggetto, testo email dove ci sono alcuni indirizzi email. Dovra' integrato al foglio registri 

[alexps81Moderatore alexps81 Karma: 58 pts]

Bo' non sto capendo che tipo di aiuto ti serve.

Hai allegato gli ultimi 2 file che sembrano praticamente uguali. Da quello che vedo il codice prepara tante mail quanti sono gli indirizzi email indicati. E quindi? Non va bene? Diciamo che per ora posso dirti che questa linea di codice non serve a nulla:

If domanda = vbYes Then

la puoi togliere (ovviamente anche il suo relativo End If in fondo al codice). Hai già istruito il codice con la condizione

If domanda = vbNo Then Exit Sub

quindi se alla MsgBox rispondi NO allora il codice entra nella condizione su descritta ed esce dalla routine. Al contrario, se rispondi SI allora salta questa linea di codice e prosegue sotto.

[DIEGO100Partecipante DIEGO100]

Ok va bene. Stasera provo il codice con la modifica inviata. Ti faro sapere.

[DIEGO100Partecipante DIEGO100]

Nel secondo file ho aggiunto oggetto, e il testo del messaggio

[DIEGO100Partecipante DIEGO100]

Buon pomeriggio gli indirizzi da inserire sono circa 40 piu', o meno. L'invio della email deve fare le seguenti operazioni. Sto compilando febbraio, deve convertire in pdf, e inviare lo stesso foglio che e' stato salvato in pdf

[alexps81Moderatore alexps81 Karma: 58 pts]

@diego100 sto andando un po' in confusione. Non riesco a capire cosa ti serve. Adesso di quale allegato parliamo? Il primo, quello dove ci sono i fogli nominati in base ai mesi?

Fai un reset e spiega in un solo messaggio l'obbiettivo che ti serve raggiungere. Allega a questo messaggio anche l'allegato a cui bisogna metterci le mani.

Cerca di essere chiaro ed esaustivo, evitando messaggi uno dietro l'altro, altrimenti diventa difficile comprendere.

[DIEGO100Partecipante DIEGO100]

Buon pomeriggio, faccio il reset. Ho il foglio registri, ogni mese devono essere compilati in base ai giorni che lavorano. Una volta compilato, deve essere salvato in pdf, e dopodiche deve essere inviati ai vari destinatari

[Raffaele53Partecipante Raffaele53 Karma: 23 pts]

Quale gestore di posta hai...libero, gmail o altro?

[DIEGO100Partecipante DIEGO100]

Il mio gestore di posta elettronica e hotmail

[DIEGO100Partecipante DIEGO100]

Il mio gestore di posta elettronica e hotmail.com

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Prova con CDO. Il codice seguente dovrebbe funzionare (potrebbero esserci limitazioni se stai lavorando dietro un proxy aziendale). Modifica opportunamente i campi user e password.

Sub SendMailFromHotmail()
Dim iMsg As Object
Dim iConf As Object
Dim Flds As Variant

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1
    Set Flds = iConf.Fields
    
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1    'basic
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sender@hotmail.com"     'utente reale
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "@JPyL44#Gp!IhGaB"       'password reale
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-mail.outlook.com"    '"smtp.live.com"    '
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2   'network
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25    '587 465 26
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Update
    End With

    With iMsg
        Set .Configuration = iConf
        .To = "recipient@domain.it"
        .From = "sender@hotmail.com"
        .Subject = "Hello " & Time
        .TextBody = "Hello world"
        On Error GoTo err_
        .Send
    End With

    Set iMsg = Nothing
    Set iConf = Nothing
    Exit Sub
    
err_:
    Debug.Print Err & ": " & Err.Description
    Resume Next

End Sub

[Raffaele53Partecipante Raffaele53 Karma: 23 pts]

Salva il files e mettilo dove desideri.
Dovrebbe funzionare mai provato con hotmail
Per funzionare bisogna prima compilare i campi nel foglio Festivita R2:R7
Quando sarai in un (foglio-Mese) e avvii il codice, questo salva un Pdf nella stessa directory dove si trova questo files
Se usate il gestore di posta GMAIL, https://myaccount.google.com/security serve Consentire la verifica in due passaggi ed creare una password per APP (questa sarà la password per l'invio-mail). Con altri gestori-posta non mi risultano problematiche.

Allegati:

You must be logged in to view attached files.

[DIEGO100Partecipante DIEGO100]

L'account con il quale devo inviare non e aziendsle, ns e privato.

[DIEGO100Partecipante DIEGO100]

Buonasera ho provato il codice esce errore di run time

Impossibile trovare il file. Verificare che il percorso e il nome del file siano corretti

Il nome del file 02 Foglio presenza consulente.pdf

Il prossimo sara 03 stesso nome, ecc

[DIEGO100 DIEGO100]

Buonasera nelle  righe r2: r7 nel foglio festivita cosa bisogna inserire per avviare il codice

[Raffaele53Partecipante Raffaele53 Karma: 23 pts]

>>>Il nome del file 02 Foglio presenza consulente.pdf
Non capisco a cosa Ti riferisci, il codice salva in automatico un PDF in base al nome del foglio selezionato Ex FEBBRUARIE_2024_2_2.pdf

Per quanto riguarda cosa scrivere....in R4 ed R5 (LA TUA MAIL + LA TUA PASSWORD)
Presumo che per HOTMAIL sia in:
R2 = smtp-mail.outlook.com
R3 = 587
R6+R7 sono già scritte

Naturalmente in colonna O le mail VALIDE dei destinatari, dopo andare su un mese qualsiasi e premere il bottone

[Autore]

Articoli