- Codice: Seleziona tutto
Sub PROVAMAIL2007()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
Const LF = vbCrLf
' (a)
PERCORSOFILEIMMAGINE = """C:\io.JPG"""
Set OutApp = CreateObject("Outlook.Application")
Outfile = Cells(Range("G4").Value, "O").Value
For I = 5 To Range("H100").End(xlUp).Row
BDT = BDT & Cells(I, "H") & LF
Next I
'' (b)
Nominat = Cells(Range("G4").Value, "A").Value
EmailAddr = Cells(Range("G4").Value, "B").Value
Subj = Range("H4").Value
'
EmailAddr1 = Cells(Range("G4").Value, "C").Value
Subj = Range("H4").Value
EmailAddr2 = Cells(Range("G4").Value, "D").Value
Subj = Range("H4").Value
'
IMMAGINE = "<BR>" & "<img src=" & PERCORSOFILEIMMAGINE & "/></b><br>"
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.CC = EmailAddr1 & ";" & EmailAddr2
.BCC = ""
.Subject = Subj
If Cells(Range("G4").Value, "O").Value <> "" Then
.Attachments.Add Outfile
End If
.htmlBody = BDT & IMMAGINE
'.send
.Display 'or use .send
'.send
End With
' (c)
Set OutMail = Nothing
'
' (d)
Set OutApp = Nothing
End Sub
Anzichè generare la mail da Posta di Outlook come potrei far generare una mail di "Nuova Riunione" sempre da Outlook ma dal CALENDARIO?
Grazie per l'attenzione