colleg.ipertestuale

[ricky53]

Ciao,
stavo riguardando gli interventi e mi sono accorto di averti inviato una macro che non era quella che avevo predisposto per te ...
Ecco la versione che ho scritto per te che invia le e-mail (i dati sono presi dal "Foglio 1" l'indirizzo dalla colonna "A", l'oggetto dalla colonna "D" ed il testo dalla colonna "F") senza che tu debba fare click su "Invia"

Codice: Seleziona tutto

Option Explicit

Sub Invia_Email_Automaticamente()
    Dim OutApp As Object, OutMail As Object
    Dim I As Integer, UR As Integer, WS As Worksheet

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    Set WS = Sheets("Foglio1")
    UR = WS.Range("A" & Rows.Count).End(xlUp).Row
    For I = 2 To UR
        Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .To = WS.Cells(I, "A")
            .Subject = WS.Cells(I, "D")
            .Body = WS.Cells(I, "F")
            .Send
            Application.SendKeys "%a"
        End With
        Set OutMail = Nothing
    Next I
    Application.ScreenUpdating = True
   
    Set OutApp = Nothing
    Set WS = Nothing
    MsgBox "Sono state inviate " & UR - 1 & "  e-mail"
End Sub

NON ho potuto fare il test perché non ho la posta configurata su questo PC.

[Gianpa12]

Grazie Ricky.

Ho fatto inserisci nuovo modulo e ho copiato la seconda macro che mi hai inviato. Poi ho posizionato il cursore su A2 e poi ho eseguito la macro "Invia_Email_Automaticamente".

Mi esce pero' un messaggio il seguente messaggio di errore: "Errore di run-time 429: il componente ActiveX non è in grado di creare l'oggetto" poi posso scegliere l'opzione "Fine" o "Debug".

Facendo il debug, si evidenzia di giallo la seguente riga:

Set OutApp = CreateObject("Outlook.Application")

Forse è perché uso gmail e non outlook? Ho provato a scrivere gmail al posto di outlook ma non va.

Gianpa

[Anthony47]

Se non hai il programma Outlook allora CreateObject("Outlook.Application") non puo' che fallire...

Non ho seguito la discussione quindi non sono in grado di dire altro.

Ciao

[ricky53]

Ciao,
letto quanto scritto da Anthony, dovresti dirci quale software utilizzi per ricevere/inviare le email e quale è il tuo gestore presso il quale hai l'account e cercheremo di fornirti il codice per utilizzarli.

[Gianpa12]

Uso sempre Gmail.

Anche quando invio email personalizzate usando le due macro Invia_Email e Macro_Flash.

[ricky53]

Caio,
ma "Gmail" è il gestore del servizio di posta presso il quale tu hai attivato l'account,
Io volevo sapere quale software attivi, al posto di MS-Outlook, per "gestire" le email?

Premetto che ho sempre utilizzato la posta con il SW di Office e non mi sono acculturato su altri SW, ho solo letto che esiste GeeMail predisposto appositamente per Gmail. Tu utilizzi questo SW?
Oppure Mozilla Thunderbird ma ho solo letto e non li ho mai utilizzato.

[Gianpa12]

Ciao,
La tua è un'interessante domanda, ma credo di essere abbastanza sicuro che uso solo gmail.

Ti dico cosa ho fatto: su impostazioni di Chrome sono andato su "Privacy" e poi "Impostazioni contenuti". Sulla schermata che si è aperta, sono andato sulla quarta voce che si chiama "Gestori". Sulla schermata che si apre trovo la scritta "mailto" e ho l'opzione di inserire "nessuna" oppure "mail.google.com". Io ho selezionato mail.google.com.

In questo modo ogni volta che clicco su un'email, mi si apre una pagina di gmail in chrome. Per questo motivo, quando aziono le due macro "Invia_Email" e "Macro_Flash" tutto funziona perfettamente e si apre una pagina email di gmail precompilata nel browser Google Chrome.

Resta il problema che devo fare click manualmente per inviare l'email.

Questo è tutto quello che ho fatto. Che ne pensi?

[ricky53]

Ciao,
come metodo non lo conoscevo.

Però non mi è chiaro dove fai "click": lo hai scritto tu qui

... In questo modo ogni volta che clicco su un'email ...

Cosa hai come pagina davanti quando fai click?

[Gianpa12]

Intendevo dire "... in questo modo ogni volta che clicco sull'indirizzo email....".

Cioè intendevo dire che settando le impostazioni di Chrome come ho scritto sopra, ottengo due risultati:

1) in generale, quando sono sul web e c'è un indirizzo email, basta che ci clicco sopra e si apre gmail in Chrome con già inserito l'indirizzo email su cui avevo cliccato poco prima (ovviamente il campo oggetto e testo rimangono vuoti).

2) se sono sul file excel che ti ho inviato prima, non serve che faccio nessun click per aprire gmail in Chrome. Basta che attivo le due macro solite "Invia_Email" e "Macro_Flash" e ottengo l'email precompilata (nei campi: indirizzo email, oggetto, testo) in gmail su Chrome. E poi manualmente devo schiacciare invia.

E' chiaro? Ti viene in mente una macro per automatizzare anche l'ultimo pezzo (cioè l'invio dell'email)?

[ricky53]

Caio,
visto che tu non utilizzi MS-Office o altri programmi di posta elettronica penso sia difficile agire rendendo automatico l'invio delle e-mail.
Si potrebbe FORSE agire sui parametri che vengono passati alla "Shell" che utilizzi per inviare e-mail ma ... NON conosco quali sono i parametri da passare alla Shell e non sono riuscito a trovare nulla in rete che illustrasse il significato dei parametri in caso di invio e-mail.

Mi riferisco a questa parte di codice che tu avevo suggerito all'inizio del tuo quesito:

Codice: Seleziona tutto

Private Declare Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

I parametri sono:
hwnd
lpOperation
lpFile
lpParameters
lpDirectory
nShowCmd

[ricky53]

Ciao,
leggi quanto ti ho scritto prima.


Però due domande sono necessarie:
1. se devi leggere una e-mail ricevuta come fai?

2. se devi inviare una e-mail senza aprire il file excel?


Apri il servizio di Chrome prima ?

[Gianpa12]

La prima email che mi hai inviato purtroppo le mie conoscenze attuali di programmazione non mi consentono di capirla.

Per quanto riguarda la tua seconda email:
1) le email ricevute vanno tranquillamente nel mio account gmail.
2) se devo mandare un'email senza aprire il file excel, mando l'email dal mio account gmail. Qual è il problema?

Il vantaggio di usare gmail è che si possono mandare fino a 2500 email al giorno ... se uso thunderbird o outlook ne posso mandare molte meno.

Senti, che si fa? Ipotizza che questo sia il primo post. Ripartiamo. Come si fa a spedire email automatiche lanciandole da Excel? E contemporaneamente poterne mandare almeno 2500 al giorno?

[ricky53]

Ciao,
con MS-Office la soluzione c'è e l'abbiamo esclusa.

Con la modalità attuale, invece, non conoscendo quali parametri utilizzare nella "ShellExecute", nonostante abbia fatto delle ricerche in rete, non sono riuscito a trovare una soluzione.