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

Codice: Seleziona tutto
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=#00BF40][color=#FFFF00]MiaSc = DateDiff("d", Date, Range("E" & RR).Value) '<<<< aggiungi questa riga qui[/color][/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@xxxx.it"
        .CC = "diegobeccari@xxxx.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
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 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 92 ospiti