Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

colleg.ipertestuale

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: colleg.ipertestuale

Postdi ricky53 » 08/03/15 03:44

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Sponsor
 

Re: colleg.ipertestuale

Postdi Gianpa12 » 08/03/15 21:29

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
Gianpa12
Utente Junior
 
Post: 68
Iscritto il: 28/06/10 10:10

Re: colleg.ipertestuale

Postdi Anthony47 » 08/03/15 21:47

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: colleg.ipertestuale

Postdi ricky53 » 09/03/15 08:42

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: colleg.ipertestuale

Postdi Gianpa12 » 09/03/15 13:38

Uso sempre Gmail.

Anche quando invio email personalizzate usando le due macro Invia_Email e Macro_Flash.
Gianpa12
Utente Junior
 
Post: 68
Iscritto il: 28/06/10 10:10

Re: colleg.ipertestuale

Postdi ricky53 » 09/03/15 14:15

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: colleg.ipertestuale

Postdi Gianpa12 » 09/03/15 14:43

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?
Gianpa12
Utente Junior
 
Post: 68
Iscritto il: 28/06/10 10:10

Re: colleg.ipertestuale

Postdi ricky53 » 09/03/15 15:09

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?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: colleg.ipertestuale

Postdi Gianpa12 » 09/03/15 16:26

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)?
Gianpa12
Utente Junior
 
Post: 68
Iscritto il: 28/06/10 10:10

Re: colleg.ipertestuale

Postdi ricky53 » 09/03/15 16:50

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
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: colleg.ipertestuale

Postdi ricky53 » 09/03/15 17:29

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 ?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: colleg.ipertestuale

Postdi Gianpa12 » 10/03/15 20:13

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?
Gianpa12
Utente Junior
 
Post: 68
Iscritto il: 28/06/10 10:10

Re: colleg.ipertestuale

Postdi ricky53 » 10/03/15 22:43

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "colleg.ipertestuale":


Chi c’è in linea

Visitano il forum: wallace&gromit e 13 ospiti