- Codice: Seleziona tutto
Sub MAILAnteprima()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
Const LF = vbCrLf
Set OutApp = CreateObject("Outlook.Application")
If Cells(Range("I4").Value, "T").Value <> "" Then
Application.Run "REPORT_RUPM_creo_pdf" '<-- con questa stampo in pdf il REPORT RUPM
Application.Run "REPORT_RUPM_SMALL_creo_pdf" '<-- con questa stampo in pdf il REPORT RUPM
End If
''compilazione del testo di accompagnamento
Sheets("INVIA MAIL").Select
'Il comando OutFile serve per mandare 1 allegato
OutFile = Cells(Range("I4").Value, "Q").Value
OutFile1 = Cells(Range("I4").Value, "T").Value
For i = 5 To Range("J1000").End(xlUp).Row
BDT = BDT & Cells(i, "J") & LF
Next i
'' (b)
Nominat = Cells(Range("I4").Value, "C").Value
EmailAddr = Cells(Range("I4").Value, "D").Value
Subj = Range("J4").Value
'End If TOLTO ... SERVIVA PER GLI ORARI DEGLI APPUNTAMENTI
'
EmailAddr1 = Cells(Range("I4").Value, "E").Value
Subj = Range("J4").Value
EmailAddr2 = Cells(Range("I4").Value, "F").Value
Subj = Range("J4").Value
'HO INSERITO LA eMailAddr3 CON FUNZIONE STATICA
EmailAddr3 = Sheets("INVIA Mail").Range("N6").Value
'
'IMMAGINE = "<BR>" & "<img src=" & PERCORSOFILEIMMAGINE & "/></b><br>"
Set OutMail = OutApp.CreateItem(0)
With OutMail
'ricevuta di ritorno NOVITA' per la conferma di recapito aggiungere --> .OriginatorDeliveryReportRequested
If Sheets("INVIA MAIL").Range("M7").Value <> "" Then
.ReadReceiptRequested = True
End If
.To = EmailAddr
.CC = EmailAddr1 & ";" & EmailAddr2 & ";" & EmailAddr3
.BCC = ""
.Subject = Subj
'Istruzioni dove trovare l'allegato
If Cells(Range("I4").Value, "Q").Value <> "" Then
.Attachments.Add OutFile
End If
If Cells(Range("I4").Value, "W").Value <> "" Then
.Attachments.Add OutFile1
End If
'Usare ---> .htmlBody = BDT" solo se voglio inviare mail formattata
.Body = BDT
'.send
.Display 'or use .send
End With
Application.Wait (Now + TimeValue("0:00:01"))
' (c)
Set OutMail = Nothing
'
' (d)
Set OutApp = Nothing
'End If
End Sub
Ho provato ad aggiungere un 2° FILE allegato inserendo il percorso dalla cella W4 alla cella W10, ma mi va in debug su questo comando
- Codice: Seleziona tutto
.Attachments.Add OutFile1
Avete una idea del motivo?
Mi date una mano per favore ...
Grazieeeeeeeeee
