Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro excel mail automatica

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: macro excel mail automatica

Postdi mattew89 » 04/11/16 12:58

Scusate, ora non va in debug e funziona.. Un' ultima cosa: vorrei fare in modo di non dover lanciare la macro ma che questa venga eseguita ogni giorno. La mia idea era quella di inserire un'operazione pianificata del file excel ogni giorno, non voglio però lanciare la macro manualmente. Come faccio a fare in modo che venga lanciata in modo automatico?

grazie ancora per gli aiuti
mattew89
Utente Junior
 
Post: 38
Iscritto il: 31/10/16 17:50

Sponsor
 

Re: macro excel mail automatica

Postdi mattew89 » 04/11/16 13:27

ho risolto.. GRAZIE DI TUTTO
mattew89
Utente Junior
 
Post: 38
Iscritto il: 31/10/16 17:50

Re: macro excel mail automatica

Postdi mattew89 » 07/11/16 13:18

Ulteriori richieste:
Il file excel che viene aperto dalla macro è protetto da una password che conosco, è possibile automatizzare nella macro l'immissione della password?

Oltre alla condizione <>"SCADUTO" vorrei che la macro inviasse la mail anche quando viene soddisfatta la condizione >10, come si può fare?


grazie
mattew89
Utente Junior
 
Post: 38
Iscritto il: 31/10/16 17:50

Re: macro excel mail automatica

Postdi Anthony47 » 08/11/16 00:39

Per la password devi chiarire di quale password parli: quella che protegge il file contro le aperture indesiderate, o contro le scritture indesiderate o quella che protegge i fogli dalle modifiche indesiderate.

Per l'altra codizione sull'invio, nella macro c'e' la riga
If cel.Value <> "SCADUTO" Then
Aggiornala in
Codice: Seleziona tutto
If cel.Value <> "SCADUTO" Or Cel.Value > 10 Then


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

Re: macro excel mail automatica

Postdi mattew89 » 08/11/16 10:52

La password è di lettura, col nuovo codice salta tutto ed invia anche i record in cui la cella è valorizzata come "SCADUTO".. :(
mattew89
Utente Junior
 
Post: 38
Iscritto il: 31/10/16 17:50

Re: macro excel mail automatica

Postdi mattew89 » 08/11/16 17:57

Ho risolto da solo.. grazie ancora
mattew89
Utente Junior
 
Post: 38
Iscritto il: 31/10/16 17:50

Re: macro excel mail automatica

Postdi Anthony47 » 09/11/16 01:14

Bravo, allora.
Avatar utente
Anthony47
Moderatore
 
Post: 17656
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro excel mail automatica

Postdi mattew89 » 10/11/16 12:18

ho un altro quesito: è possibile inviare un'unica mail con tutti i record in cui si sono verificate le condizioni?
mattew89
Utente Junior
 
Post: 38
Iscritto il: 31/10/16 17:50

Re: macro excel mail automatica

Postdi Anthony47 » 10/11/16 15:13

Si e' possibile.
Nel ciclo For Each cel In rng /Next cel invece che includere l'invio della email con questo codice (che quindi va eliminato):
Recipient = Range("H2").Value
Set OutlookApp = New Outlook.Application
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Recipient
.Body = Msg
.Send
End With

limitati a creare il testo del messaggio, modificando l'attuale
Msg = Range("a" & cel.Row).Value & " " & Range("b" & cel.Row).Value & " " & Range("c" & cel.Row).Value
In
Codice: Seleziona tutto
    Msg = Msg & Range("a" & cel.Row).Value & " " & Range("b" & cel.Row).Value & " " & Range("c" & cel.Row).Value & vbCrLf

Alla fine includerai l'invio della email, spostando in questa posizione il codice che avevamo prima eliminato:
Codice: Seleziona tutto
Next cel                        'Esistente
'Codice spostato in questa posizione:
    Recipient = Range("H2").Value
    Set OutlookApp = New Outlook.Application
    Set MItem = OutlookApp.CreateItem(olMailItem)
    With MItem
      .To = Recipient
      .Body = Msg
      .Send
    End With
Application.Wait Now + TimeValue("00:00:02")       'Questa e' bene aggiungerla
ActiveWorkbook.Close       'Esistente
'altro codice

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

Re: macro excel mail automatica

Postdi mattew89 » 10/11/16 17:33

Grazie.. Scommetto che lavori su VBA!!! :D

Aiutami a capire.. Cosa serve il "Msg" che metti dopo l'uguale?

grazie ancora
mattew89
Utente Junior
 
Post: 38
Iscritto il: 31/10/16 17:50

Re: macro excel mail automatica

Postdi mattew89 » 21/11/16 14:12

Ciao a tutti, ho un problema con questa macro, finora ha sempre funzionato ma ora esce fuori un errore run time 13 fermandosi al seguente punto del codice:

Codice: Seleziona tutto
    If cel.Value <> "NO" And cel.Value > 10 Then


mi aiutate?
di seguito il codice completo:
Codice: Seleziona tutto
Sub Macro1()
Dim ur As Long
Dim rng As Range
Dim cel As Range
Dim OutlookApp As Outlook.Application
    Dim MItem As Object
    Dim Recipient As String
    Dim Msg As String
    Dim Obj As String
    Set wb = Workbooks.Open(Filename:="P:\II63R_PROGETTAZIONE_SERVICE_MANAGEMENT\CONFIGURATORE\STORICO CONFIGURAZIONE.xls", Password:="paolenis")
 Windows("STORICO CONFIGURAZIONE.xls").Activate
ur = Cells(Rows.Count, "v").End(xlUp).Row
Set rng = Range("v2:v" & ur)
rng.Select
For Each cel In rng
    If cel.Value <> "NO" And cel.Value > 10 Then
    Msg = Msg & "Sono passati " & Range("v" & cel.Row).Value & " giorni dalla richiesta della configurazione Full per il prodotto " & Range("c" & cel.Row).Value & "_" & Range("a" & cel.Row).Value & "-" & Range("b" & cel.Row).Value & vbCrLf
    End If
Next cel
Recipient = "progettazione.it@blueassistance.it"
    Set OutlookApp = New Outlook.Application
    Set MItem = OutlookApp.CreateItem(olMailItem)
    With MItem
      .To = Recipient
      .Subject = "Delays Configurations Full"
      .Body = Msg
      .Send
    End With
    ActiveWorkbook.Close savechanges:=False
   
       
Set OutlookApp = Nothing
End Sub
mattew89
Utente Junior
 
Post: 38
Iscritto il: 31/10/16 17:50

Re: macro excel mail automatica

Postdi mattew89 » 21/11/16 14:36

HO RISOLTO.. :D
mattew89
Utente Junior
 
Post: 38
Iscritto il: 31/10/16 17:50

Re: macro excel mail automatica

Postdi Anthony47 » 22/11/16 02:02

Bravo

Sarebbe pero' carino che tu scrivessi che cosa ti bloccava prima...
Avatar utente
Anthony47
Moderatore
 
Post: 17656
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro excel mail automatica

Postdi mattew89 » 22/11/16 10:25

Hai ragione, in pratica c'era una cella con errore #VALORE! nella colonna di controllo V che ho risolto eliminando il record e reinserendolo
mattew89
Utente Junior
 
Post: 38
Iscritto il: 31/10/16 17:50

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "macro excel mail automatica":


Chi c’è in linea

Visitano il forum: Nessuno e 34 ospiti