di STRAMAURO » 26/01/15 11:55
Comunque ricky,m io nel frattempo ho fatto passi avanti.
Adesso sto lavorando per aggiungere una macro per un invio mail dinamico, ovvero ad ogni ad ogni variazione di titolare pratica (colonna M - su M1 c'è già un menu a tendina con lista fissa di 8 nominativi) vorrei mi cambiasse il destinatario della mail (colonna N - su N1 c'è già un pulsante "invia" con una macro attiva che ti riporto sotto). Inoltre, visto che nell'oggetto della mail dovrà andare il numero protocollo, la stessa condizione si dovrà creare ad ogni variazione di numero protocollo (colonna A). Ovviamente sarebbe da estendere per tutte le celle della N e della colonna M. Potresti illuminarmi? GRAZIE
Public Sub Pulsante25_Click()
Dim destinatario As String
Dim URiga As Long
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "xxx@yyy.org"
.CC = "xxx@yyy.org"
.BCC = "xxx@yyy.org"
.Subject = "1"
.Body = "Ciao," & Chr(10) & _
Chr(10) & "ti è stata assegnata una pratica avente il numero di protocollo in oggetto." & _
Chr(10) & _
Chr(10) & "Ricordati di aprire il file protocollo che si trova in area condivisa sotto (AreaGruppi/Consorziati/zzzcondivise/PROTOCOLLO) e di inserire i dati relativi alla pratica (sotto le colonne con intestazioni verdi) nella stessa riga del tuo numero di protocollo." & _
Chr(10) & _
Chr(10) & "In allegato il documento inerente la pratica." & _
Chr(10) & _
Chr(10) & "Grazie"
.Attachments.Add ("C:\test1.txt")
.Attachments.Add ("C:\test2.txt")
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
