Condividi:        

Invio E-Mail in modo automatico con Excel e VBA

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: Invio E-Mail in modo automatico con Excel e VBA

Postdi ricky53 » 24/02/10 08:29

Ciao,

Flash: non ho dormito tranquillo dall'ossessione altro che letterine ..., c'era un "Alt+a" che mi inseguiva ... con una grossa E-Mail ...

Anthony: si da tastiera "Alt+a" invia l'email.
Ritorno a dire: può dipendere dai criteri di sicurezza di M.O.?
Io utilizzo Office 2003 ITA con SP3 con tutti gli aggiornamenti disponibili, gli aggiornamneti sono gestiti in modo automatico dalla nostra azienda.

Grazie per l'interessamento assiduo.
Ne uscirò???

Ciao da Ricky53
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Sponsor
 

Re: Invio E-Mail in modo automatico con Excel e VBA

Postdi Flash30005 » 24/02/10 08:43

Buongiorno Ricky

:lol: per l'ALT+a che ti inseguiva... :lol: :lol:
ma scusami se ti funziona da tastiera,
mi domando non è possibile dare il comando ALT+a con la macro?
come succede per andare a capo con vbCrLf ?
o con CHR(10)?

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Invio E-Mail in modo automatico con Excel e VBA

Postdi ricky53 » 24/02/10 13:10

Ciao,
sono le regole di sicurezza inserite sul server di posta aziendale M.O. così ho capito e, quindi, non si può/deve agire per superarle ...

Ho avuto un suggerimento ma come palliativo: lo devo verificare.

Gli "Alt+..." funzionano con gli altri applicativi ma non con M.O. nella mia configurazione aziendale.

Ciao da Ricky53
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Invio E-Mail in modo automatico con Excel e VBA

Postdi Anthony47 » 24/02/10 15:43

Un' ultima cosa: quel codice va eseguito non in modalita' debug, perche' altrimenti il comando Alt-a viene intercettato dal vbe.
Curiosita', per " server di posta aziendale M.O." che cosa intendi?

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Invio E-Mail in modo automatico con Excel e VBA

Postdi ricky53 » 24/02/10 15:48

Ciao,
aggiornamento:

ho utilizzato (come palliativo)
Questo Prodotto
in versione FREE.

Il prodotto una volta installato, eseguito e reso attivo, provvede a simulare il tasto "OK" del messaggio di avviso di M.O.
Il messaggio compare sempre ma, almeno, non devo premere (io o gli utenti del pacchetto) 20-30 volte, o più, "OK" sul messaggio di avviso.

Non ho avuto la soluzione "SILENTE", per il momento mi accontento.


Ho capito che il messaggio di avviso compare in seguito alle impostazioni di sicurezza applicate al server di posta aziendale, inoltre, la sicurezza della versione di M.O. impedisce l'utilizzo di "SendKey" (io ho Microsoft Office 2003 SP3 ITA)

Per Anthony
visto che a te l'utilizzo di "SendKey" M.O. lo consente, ti chiedo:
tu utilizzi M.O 2003 con una connessione ADSL privata o su una rete aziendale ed un server di posta aziendale con le varie regole di sicurezza?

Ciao da Ricky53
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Invio E-Mail in modo automatico con Excel e VBA

Postdi Anthony47 » 24/02/10 16:15

No, io uso marginalmente Outlook ma collegato a server smtp alice (il mio isp). La configurazione che ti ho linkata era per tutamimetica che non so che configurazione usa.
Hai letto il mio post precedente?

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Invio E-Mail in modo automatico con Excel e VBA

Postdi ricky53 » 24/02/10 17:15

EUREKA

Grazie prima di tutto ad Anthony per la pazienza.

Spiegazione dell'arcano:
Io eseguivo (e mi ostinavo a farlo, visto che stavo facendo delle prove) la macro
con "F5" dall'editor del VB .... AHI AHI

Ho provato (dopo il precedente intervento di Anthony) ad eseguirla sul foglio contenente i dati con "Alt+F8" + Esegui ------>>> E' partita l'email !!!!
E VAI!!!!

GRAZIE e GRAZIE.

Ciao da Ricky53
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Invio E-Mail in modo automatico con Excel e VBA

Postdi ricky53 » 24/02/10 17:26

Ciao,
dopo tanta fatica e tempo e messaggi nella discussione almeno il codice lo inserisci!

ME LO DICO DA SOLO !!!!

Codice: Seleziona tutto
Sub Invia_Email_Ultima_Buona()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim EmailAddr As String
    Dim Subj As String
    Dim BodyText As String
   
    Foglio1.Select
   
' RR contiene il nuemro di utenti cui inviare le e-mail (1 per utente)
    RR = Range("B" & Rows.Count).End(xlUp).Row
   
' I dati iniziano dalla seconda riga
    For I = 2 To RR
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        With OutMail
       
' La colonna "B" contiene gli indirizzi e-mail dei vari destinatari
            .To = Cells(I, 2)
           
' La colonna "C" contiene l'indirizzo e-mail in "Copia per Conoscenza"
            .CC = Cells(I, 3)
           
' Eventuale e-mail in "Copia per conoscenza nascosta"
            .BCC = ""
           
' La colonna "D" contiene l'oggetto della e-mail
            .Subject = Cells(I, 4)
           
' La colonna "E" contiene l testo della e-mail
            .Body = Cells(I, 5)

' La colonna "F" contiene il percorso ove si trova il file da allegare
' La colonna "G" contiene il nome del file da allegare
            .Attachments.Add (Cells(I, 6) & Cells(I, 7))
           
            .Display
        End With
        Set OutMail = Nothing
        Set OutApp = Nothing
        Application.SendKeys "%a"
    Next I
End Sub


Di nuovo grazie.

Ciao a tutti da Ricky53
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Invio E-Mail in modo automatico con Excel e VBA

Postdi ricky53 » 24/02/10 17:34

Ciao

con M.O. intendevo dire Microsoft Office Outlook

Ariciao
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Invio E-Mail in modo automatico con Excel e VBA":


Chi c’è in linea

Visitano il forum: Nessuno e 37 ospiti

cron