Geachte experts
Onderstaande code gebruik ik al lange tijd zonder problemen.
Maar op onze neiuwe server (windows 2012) werkt het niet meer.
ik gebruik office 2010 zowel op de oude als op de nieuwe server.
kan het iets zijn in de verwijzingen van het VBA project?
Onderstaande code gebruik ik al lange tijd zonder problemen.
Maar op onze neiuwe server (windows 2012) werkt het niet meer.
ik gebruik office 2010 zowel op de oude als op de nieuwe server.
kan het iets zijn in de verwijzingen van het VBA project?
Code:
Sub Send()
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim subj As Range
Dim mailto As Range
Dim mailcc As Range
Set rng = Sheets("aftersales week rapport").Range("A1:M62").SpecialCells(xlCellTypeVisible)
Set subj = Sheets("aftersales week rapport").Range("S7")
Set mailto = Sheets("aftersales week rapport").Range("S10")
Set mailcc = Sheets("aftersales week rapport").Range("S12")
On Error GoTo 0
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = mailto
.CC = mailcc
.BCC = ""
.Subject = subj
.HTMLBody = RangetoHTML(rng)
.Send 'or use .Display
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
end sub