Ciao a tutti,
ho un file per la gestione di spedizioni con (oltre a tante altre colonne) i seguenti dati:
- colonna con nome della compagnia di trasporto
- colonna con email del trasportatore (in automatico tramite una VLOOKUP)
Vorrei creare una macro che esegua questo:
Ogni volta che compilo una riga (inserisco il trasportatore e in automatico si compila la colonna con la corrispondente email) mandi un email all'indirizzo corrispondente a quel trasportatore.
Per ora l'ho fatta così ma manda l'email sempre al primo indirizzo, non riesco a far scorrere le righe:
Sub InvioEmailMsO()
Dim myOutlook As Object
Dim myMailItem As Object
Dim variabileEmailDelDestinatario As String
variabileEmailDelDestinatario = [T3] //T è la colonna che ad ogni prenotazione si compila con l'email del destinatario
Dim TestoEmail As String
TestoEmail = [S3]
If [N3] <> "1" Then Exit Sub //N è la colonna dei camion (se c'è scritto 1 vuol dire che mi serve un camion, forse si può anche togliere!
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)
With otlNewMail
.to = variabileEmailDelDestinatario
.Subject = "NUOVA PRENOTAZIONE"
.body = TestoEmail
.Display
.send
End With
End Sub
La mia paura mettendo un ciclo per scorrere le righe è che ogni volta che inserisco una nuova riga rimandi le email a tutti dalla prima riga, invece deve inviarla solo al destinatario presente nella riga appena compilata. AIUTATEMI PER FAVOREEEEEE!!!!
Ah se è possibile, vorrei far apparire un messaggio con scritto "email inviata con successo" se la macro va a buon fine.
Grazieeeee è urgente!!!!