|
Hoe kan je vanuit VBA een mail sturen via Novell Groupwise:
Als groupwise open staat is het login gedeelte in de code niet nodig.
Sub sendmail()
Dim objGwApp As Object
Dim objGwRootAccount As Variant
Dim objGwRootFolder As Variant
Dim objGwDraftMessage As Variant
Dim objGwRecipient As Variant
Dim objGwEmail As Variant
Set objGwApp = CreateObject("NovellGroupWareSession")
Set objGwRootAccount = objGwApp.Login("jeacocunt", , "Jewachtwoord")
Set objGwRootFolder = objGwRootAccount.MailBox
Set objGwDraftMessage = objGwRootFolder.Messages.Add("GW.MESSAGE.MAIL")
Set objGwRecipient = objGwDraftMessage.Recipients.Add("info@iemand.nl", , 0)
objGwDraftMessage.Subject = "subject"
objGwDraftMessage.BodyText.PlainText = "stukkie text"
Set objGwEmail = objGwDraftMessage.Send
objGwDraftMessage.Delete
End Sub
En zo kan je een afspraak maken:
Private Sub Knop1_Click()
Dim objGwApp As Object
Dim objGwRootAccount As Variant
Dim objGwAppointment As Variant
Set objGwApp = CreateObject("NovellGroupWareSession")
Set objGwRootAccount = objGwApp.Login("Jeaccount", , "jewachtwoord
Set objGwAppointment = objGwRootAccount.Calendar.Messages.Add("GW.MESSAGE.APPOINTMENT", 3)
objGwAppointment.OnCalendar = True
objGwAppointment.FromText = objGwRootAccount.Owner.DisplayName
objGwAppointment.Subject = "Koffie met gebak"
objGwAppointment.StartDate = "3-3-2009 15:00:00"
objGwAppointment.EndDate = "3-3-2009 16:00:00"
End Sub
Handige code om te hebben.
|
