Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Invio automatico Mail da Excel, senza uso di bottoni

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 automatico Mail da Excel, senza uso di bottoni

Postdi diegobeccari@live.it » 01/04/15 21:45

Option Explicit
Public TestoE As String ' <<<< aggiungere
Private Sub Workbook_Open()
InvioEmail
End Sub
Sub InvioEmail()
Dim MiaSc As Integer
Dim UR, RR, CC
UR = Range("A" & Rows.Count).End(xlUp).Row
For RR = 2 To UR
[color=#FFFF00]MiaSc = DateDiff("d", Date, Range("E" & RR).Value) '<<<< aggiungi questa riga qui[/color]
If MiaSc <= 5 And Range("L" & RR).Value = "" Then '<<<< modifica la condizione così
TestoE = ""
For CC = 1 To 11
TestoE = TestoE & " " & Cells(RR, CC).Value
Next CC
Invia_Email_Automaticamente
Range("L" & RR).Value = "Ok"
End If
Next RR
ThisWorkbook.Close savechanges:=True '<<<<<<<< aggiungere
End Sub
Sub Invia_Email_Automaticamente()
Dim OutApp As Object
Dim OutMail As Object

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "diegobeccari@live.it"
.CC = "diegobeccari@live.it" ' <<===== Questa istruzione puoi anche eliminarla se non ti occorre la copia conoscenza
.Subject = "Oggetto della eMail"
.Body = TestoE

.Send
End With
Application.SendKeys "%a"
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "Effettuato invio eMail al RESPONSABILE" ' <<===== Puoi anche cancellare uesta istruzione o mettere un messaggio opportuno per il tecnico
Application.ScreenUpdating = True
End Sub
Questo è tutta la macro... ma mi da errore dove ho evidenziato
diegobeccari@live.it
Utente Junior
 
Post: 10
Iscritto il: 24/03/15 17:31

Sponsor
 

Re: Invio automatico Mail da Excel, senza uso di bottoni

Postdi Flash30005 » 01/04/15 21:53

Evidentemente in E non hai tutte date ma testi e celle vuote
controlla se dalla riga 2 in poi ci sono solo date

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Invio automatico Mail da Excel, senza uso di bottoni

Postdi diegobeccari@live.it » 07/04/15 14:12

Ciao Flash... buona pasqua in ritardo... :)
la macro mi funziona solo se la lancio manualmente... quando apro il file non parte in automatico... in più qualche volda mi da un bug nella riga:
MiaSc = DateDiff("d", Date, Range("E" & RR).Value) '<<<< aggiungi questa riga qui
cosa devo fare?
diegobeccari@live.it
Utente Junior
 
Post: 10
Iscritto il: 24/03/15 17:31

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Invio automatico Mail da Excel, senza uso di bottoni":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti