Novell Groupwise
17.10.2007 16:47:04
Heinz
Habe dieses Makro Dank Herber Forum bekommen.Es versendet mails per Outlook.
Nun möchte ich dieses Makro in meiner Arbeit anwenden.
Wir haben aber Novell Groupwise als Mailpogramm installiert.
Könnte das Makro bitte jemand dafür anpassen ?
Habe es schon selber probiert,leider ohne Erfolg.
Danke & Gruß Heinz
Sub MailSenden()
Dim StrName As String
Dim objOutlook As Object
Dim objMail As Object
Err = 0
On Error Resume Next
Set objOutlook = CreateObject("Outlook.Application")
'Set objGroupWise = CreateObject("NovellGroupWareSession")
Set objMail = objOutlook.CreateItem(0)
If Err 0 Then
MsgBox ("Kein Outlook installiert. Mailversand nicht möglich.")
Exit Sub
End If
On Error GoTo 0
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
StrName = UserForm2.TextBox10.Value
With objMail
.To = StrName
'.Subject = "Betreff (Testmail) ..."
'.Body = " Sehr geehrte Damen und Herren ... "
.ReadReceiptRequested = True
.Display ' oder direkt Send
End With
Set objOutlook = Nothing
Set objMail = Nothing
End Sub