Hallo,
Ik gebruik al jaren onderstaande macro voor het versturen van mails vanuit excel.
Sinds ik een andere pc heb, lukt dit niet meer.
Loopt vast bij de 4e regel ( Set OutApp = CreateObject("Outlook.Application") )
Hoe kan ik dit oplossen?
Alvast bedankt
'versturen van mail
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
strbody = "Beste," & vbNewLine & vbNewLine & _
"Alle aanpassingen zijn gedaan" & vbNewLine & _
"Met vriendelijke groeten," & vbNewLine & _
On Error Resume Next
With OutMail
.To = "De Doncker, Jan"
.CC = "Arijs, Veerle ;
.BCC = ""
.Subject = "Controle " & ActiveSheet.Cells(4, 12).Value
.Body = strbody
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Application.ScreenUpdating = True
Range("P4").Select
Selection.ClearContents
Range("A1:C1").Select
Ik gebruik al jaren onderstaande macro voor het versturen van mails vanuit excel.
Sinds ik een andere pc heb, lukt dit niet meer.
Loopt vast bij de 4e regel ( Set OutApp = CreateObject("Outlook.Application") )
Hoe kan ik dit oplossen?
Alvast bedankt
'versturen van mail
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
strbody = "Beste," & vbNewLine & vbNewLine & _
"Alle aanpassingen zijn gedaan" & vbNewLine & _
"Met vriendelijke groeten," & vbNewLine & _
On Error Resume Next
With OutMail
.To = "De Doncker, Jan"
.CC = "Arijs, Veerle ;
.BCC = ""
.Subject = "Controle " & ActiveSheet.Cells(4, 12).Value
.Body = strbody
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Application.ScreenUpdating = True
Range("P4").Select
Selection.ClearContents
Range("A1:C1").Select