Macro VBA mail Outlook da Excel

Question

Macro VBA mail Outlook da Excel

Anonimo

Buongiorno,

ho preparato una macro che aiuti il mio team a ricordare quando in ufficio abbiamo da fare un determinato tipo di attività. La macro funziona alla perfezione ma ragiona in base al fatto che ogni qual volta in una singola cella trova scritto "Da rimettere!" ed in un'altra trova la data del giorno (Oggi()) genera una mail con i dati presenti in quella riga, arrivando così a generare diverse mail. Ciò che mi servirebbe è generare una UNICA mail nella quale vengano racchiusi tutti i dati presenti nelle varie righe in corrispondenza delle quali trova la parola "Da rimettere!". Vi copio di seguito il codice sperando di aver spiegato bene la mia esigenza. Grazie in anticipo

Sub InviaMail()

Dim NewMail As Object

Dim strbody As String

For Row = 2 To 10000

If Cells(Row, 11).Value = "Da rimettere!" Then

If Cells(Row, 9).Value = Cells(2, 14).Value Then

Cells(Row, 11).Select

numero = Cells(Row, 6)

titolo = Cells(Row, 5)

prodotto = Cells(Row, 3)

pratica = Cells(Row, 1)

Set NewMail = CreateObject("Outlook.Application").CreateItem(oMailItem)

strbody = "<BODY style = font-size:11pt; font-family:Calibri; font-type:bold>" & _

" Ciao B.O.," & " abbiamo n. " & numero & " " & titolo & " da spedire per il prodotto " & prodotto & " (pratica " & pratica & ")." & " Controlliamo lo scadenzario e prepariamo la spedizione / il versamento."

On Error Resume Next

With NewMail

.To = "indirizzo mail"

.Subject = "Oggetto"

.HTMLBody = strbody & .HTMLBody

.CC = ""

.Display

End With

On Error GoTo 0

Set NewMail = Nothing

End If

Next Row

End Sub

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

1 risposta

Answer 1

Ciao Simone,

Per evitare che sia necessario indovinare e ricreare i tuoi dati, ti chiedo gentilmente di caricare una cartella di lavoro di esempio priva di dati sensibili.

Per caricare il file su Microsoft OneDrive, vedi:

Condividere file e cartelle di OneDrive

Per caricare il file su DropBox, vedi:

Come faccio a condividere file e cartelle in Dropbox?

===

Regards,

Norman