macro excel mail automatica

[mattew89]

Ciao a tutti,
Ho un file excel in cui sono presenti i seguenti campi:

colonna A= prodotto
colonna B= giorni alla scadenza

La colonna B puo' essere valorizzata con il numero dei giorni oppure con "SCADUTO". Il file excel è condiviso quindi non sono l'unico ad usarlo.
Vorrei che solo quando apro io il file venga inviata una mail all'indirizzo prova@abc.it con il seguente messaggio nel testo:

colonna A + colonna B + colonna C

dei soli prodotti che non sono ="SCADUTO".

mi aiutate?

grazie

[alfrimpa]

Allega un file di esempio

Per come fare guarda qui

viewtopic.php?f=26&t=103893&p=605487#p605487

Ti consiglio Filedropper

[mattew89]

eccolo
http://www.filedropper.com/provainviomail

[alfrimpa]

Ma tu come client di posta elettronica usi Outlook o altro?

[alfrimpa]

Ciao Matthew

Premetto che non usando Outlook (che non è configurato) non posso testare la macro che vedi sotto.

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
Workbooks.Open Filename:="C:\Excel\Matthew89.xlsm" <=======' Cambia il percorso con il tuo
Windows("Matthew89.xlsm").Activate
ur = Cells(Rows.Count, "c").End(xlUp).Row
Set rng = Range("c2:c" & ur)
rng.Select
For Each cel In rng
    If cel.Value <> "SCADUTO" Then
    Msg = Range("a" & cel.Row).Value & " " & Range("b" & cel.Row).Value & " " & Range("c" & cel.Row).Value
    Recipient = Range("H2").Value
    Set OutlookApp = New Outlook.Application
    Set MItem = OutlookApp.CreateItem(olMailItem)
    With MItem
      .To = Recipient
      .Body = Msg
      .Send
    End With
    End If
Next cel
ActiveWorkbook.Close
Set OutlookApp = Nothing
End Sub


Questa macro va inserita in un'altra cartella di lavoro e lanciata da lì.

In pratica viene aperto il tuo file viene esaminata la colonna C e dove non trova la parola "SCADUTO" invia le mail

Va attivata nell'editor di VBA la libreria Microsoft Outlook Object Library 15.0

[mattew89]

come si attiva? Da "Strumenti" la voce "Riferimenti" la voce è disabilitata

[alfrimpa]

Appunto devi spuntare la casellina a sinistra della voce e dare ok.

[mattew89]

Non sono stato chiaro, proprio il menù "Riferimenti" è disabilitato

[alfrimpa]

Nel tuo Excel nel Centro protezione le macro che livello di protezione hanno? Le hai abilitate?

[alfrimpa]

Ti allego un file dove ti ho messo le immagini di quel che intendo

http://www.filedropper.com/mathew2

Lascia stare il Centro Protezione (comunque le macro devono essere abilitate).

[mattew89]

Sì l'avevo capito ma non riuscivo ad attivare la voce "Riferimenti".. Cmq grazie per la disponibilità. Purtroppo la macro non funziona, errore run time 424 e il debug si ferma su

Codice: Seleziona tutto

.To = Recipient

[alfrimpa]

Mah strano.

la macro non deve stare nel tuo file ma in un altro.

Io non ho quell'errore ma un altro dovuto al fatto come dicevo prima che non ho Outlook installato.

Prova a descrivere passo passo tutte le operazioni che fai.

[mattew89]

creo un nuovo file excel, in cui inserisco la macro col codice. Sostituisco nel codice il percorso del mio file e il nome del mio file nelle seguenti stringhe:

Codice: Seleziona tutto

Workbooks.Open Filename:="C:\Excel\Matthew89.xlsm" <=======' Cambia il percorso con il tuo
Windows("Matthew89.xlsm").Activate

dopodichè salvo e lancio la macro che apre il file excel richiamato ma va in errore

[mattew89]

Ho provato ad eliminare la dichiarazione della variabile "Recipient" ed inserire l'indirizzo direttamente nel comando .To="prova@abc.com" ma continua a darmi lo stesso errore

[alfrimpa]

No sicuramente non è quello

L'errore 424 vuol dire "Necessario oggetto"; è come se mancasse qualcosa ma non riesco a capire cosa.

Prova ad allegare il tuo file con il mio codice così come da te modificato e provo a guardare.

[mattew89]

eccolo

http://www.filedropper.com/macroinviomail

[alfrimpa]

Facciamo un'ulteriore prova

Sostituisci

Codice: Seleziona tutto

Recipient = Range("H2").Value

con

Codice: Seleziona tutto

Recipient = ActiveWorkbook.ActiveSheet.Range("H2").Value

[mattew89]

Stesso errore...

[alfrimpa]

Lo immaginavo.

A questo punto ho esaurito le mie risorse e spero che possa intervenire qualcun altro in tuo aiuto.

[Anthony47]

Se Alfredo ti dice

Codice: Seleziona tutto

    Set MItem = OutlookApp.CreateItem(olMailItem)
    With MItem


E tu converti in

Codice: Seleziona tutto

    Set MItem = OutlookApp.CreateItem(olMailItem)
    With otLNewMail

allora come minimo ti cerchi un run-time-error, cosa che puntualmente ti arriva.

La morale: in certi momenti bisogna imparare a copiare...

Ciao!