opret mail i GroupWise via VB
Jeg har nedenstående kode som opretter en mail i postkassen i groupwise. Hvis koden straks skal vise den oprettede mail så man ikke først skal klikke på groupwise og ind i postkassen - hvad skal der så tilføjes i koden ?Private Sub GroupWise()
Dim vlvGroupWise As Variant
Dim vlvRootAccount As Variant
Dim vlvMailBoxFolder As Variant
Dim vlvMessage As Variant
Dim vlvReturnVal As Variant
Set vlvGroupWise = CreateObject("NovellGroupWareSession")
Set vlvReturnVal = vlvGroupWise.Login("", "")
Set vlvRootAccount = vlvGroupWise.RootAccount
Set vlvMailBoxFolder = vlvRootAccount.MailBox
Set vlvMessage = vlvMailBoxFolder.Messages.Add("GW.Message.MAIL")
vlvMessage.subject.PlainText = "Just a demomail"
vlvMessage.BodyText.PlainText = "My message"
vlvMessage.Attachments.Add ("c:\autoexec.bat")
Set vlvMessage = Nothing
Set vlvGroupWise = Nothing
Set vlvReturnVal = Nothing
Set vlvRootAccount = Nothing
Set vlvMailBoxFolder = Nothing
End Sub
