Hallo ik kan een geautomatiseerde mail versturen maar krijg er geen bijlage bij aan
Doe dit als volgt
On Error GoTo errorHandler
Dim oLapp As Object
Dim oItem As Object
oLapp = CreateObject("Outlook.application")
oItem = oLapp.createitem(0)
'
With oItem
.Subject = " dit is een Test geautomatiseerde mail van ##"
.To = "##@##.nl"
.body = " dit is een geautomatiseerde mail " & vbCrLf & "gaat tot nu toe super snel ..." & _
"Maar krijg de bijlage er nog niet bij aan "
.BIJLAGE = C:/test
.Send()
End With
watch.Reset()
watch.Start()
MsgBox((watch.Elapsed.TotalMilliseconds / 1000).ToString("00.00"))
watch.Stop()
'
oLapp = Nothing
oItem = Nothing
'
Exit Sub
errorHandler:
oLapp = Nothing
oItem = Nothing
Exit Sub
Wie kan mij helpen ??
Doe dit als volgt
On Error GoTo errorHandler
Dim oLapp As Object
Dim oItem As Object
oLapp = CreateObject("Outlook.application")
oItem = oLapp.createitem(0)
'
With oItem
.Subject = " dit is een Test geautomatiseerde mail van ##"
.To = "##@##.nl"
.body = " dit is een geautomatiseerde mail " & vbCrLf & "gaat tot nu toe super snel ..." & _
"Maar krijg de bijlage er nog niet bij aan "
.BIJLAGE = C:/test
.Send()
End With
watch.Reset()
watch.Start()
MsgBox((watch.Elapsed.TotalMilliseconds / 1000).ToString("00.00"))
watch.Stop()
'
oLapp = Nothing
oItem = Nothing
'
Exit Sub
errorHandler:
oLapp = Nothing
oItem = Nothing
Exit Sub
Wie kan mij helpen ??