Hoi Allemaal,
Ik heb een word document met daarin een knop voor verzenden.
Als je daar nu op klikt dan wordt het document verzonden via mail.
Alleen je ziet hier verder niks van en je krijgt geen melding.
Het liefst zou ik een eerste melding willen hebben met de vraag of het het verstuurd moet worden met Ja of Nee.
En nog mooier zou zijn om een melding te krijgen als het document is verstuurd.
Kan iemand mij daar mee helpen?
Dit is de code:
Ik heb een word document met daarin een knop voor verzenden.
Als je daar nu op klikt dan wordt het document verzonden via mail.
Alleen je ziet hier verder niks van en je krijgt geen melding.
Het liefst zou ik een eerste melding willen hebben met de vraag of het het verstuurd moet worden met Ja of Nee.
En nog mooier zou zijn om een melding te krijgen als het document is verstuurd.
Kan iemand mij daar mee helpen?
Dit is de code:
Code:
Private Sub CommandButton1_Click()
Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Doc = ActiveDocument
Doc.Save
With EmailItem
.Subject = "Rapport"
.Body = "Collega," & vbCrLf & _
"Hierbij mijn rapport." & vbCrLf & _
"Met vriendelijke groet."
.To = "xx@mail.nl"
.CC = "zz@mail.nl"
.Importance = olImportanceNormal 'Or olImprotanceHigh Or olImprotanceLow
.Attachments.Add Doc.FullName
.Send
End With
Application.ScreenUpdating = True
Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing
End Sub
[code]
Laatst bewerkt:
.
