Invio E-Mail in modo automatico con Excel e VBA

[ricky53]

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

[Flash30005]

Buongiorno Ricky

per l'ALT+a che ti inseguiva...
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

[ricky53]

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

[Anthony47]

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.

[ricky53]

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

[Anthony47]

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.

[ricky53]

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

[ricky53]

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

[ricky53]

Ciao

con M.O. intendevo dire Microsoft Office Outlook

Ariciao