
Sub email()
Dim myOutlook As Object
Dim myMailItem As Object
variabileEmailDelDestinatario = [H2]
Dim TestoEmail As String
TestoEmail = [A2] & " " & [B2]
If [C2] = "SCADUTO" Then Exit Sub
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)
'fName = ActiveWorkbook.Path & "" & ActiveWorkbook.Name
With otlNewMail
.to = variabileEmailDelDestinatario
.Subject = "Scadenze configurazione Full"
.body = TestoEmail
.Display
.send
End With
End Sub
|
