Wie kan mij even helpen,
Bij ons is outlook beveiligd (hij mag niet geopend worden door een andere programma).
daarom wil ik een fout melding erin brengen, maar het lukt mij niet echt.
Wie kan mij hierbij even helpen?
Bij ons is outlook beveiligd (hij mag niet geopend worden door een andere programma).
daarom wil ik een fout melding erin brengen, maar het lukt mij niet echt.
Wie kan mij hierbij even helpen?
Code:
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "MAIL ADRES"
.Subject = "Storing koffieautomaat geregistreerd"
.Body = BodyText
If Not IsError(.Send) Then .Send
Else: msbox "ERROR, Start outlook op, en probeer het opnieuw.": End Sub
End With