Groupwise statt Outlook.Application

Private Sub MailAnDM_Click() Dim olApp As Object ' Alte Programmzeile, die hat bestens funktioniert 'Set olApp = CreateObject("Outlook.Application") ' Dies ist die Groupwise Zeile, eventuell nicht möglich Set olApp = CreateObject("Groupwise.Application") Message = InputBox("VB-SCRIPT PROGRAMMING:" & Chr(10) & _ "DM-Planning-Team" & Chr(10) & Chr(10) & _ " Bitte geben sie Ihre Nachricht an das DM Team ein! ") If Message = "" Then MsgBox "SORRY" & Chr(10) & "Sie haben keine Nachricht verfasst," & _ "das Email wird nicht versendet" End End If With olApp.CreateItem(0) 'Empfänger .Recipients.Add "meine@email.com" 'Betreffzeilentext .Subject = "Anfrage auf Filter Button im Cockpit" 'Nachrichtentext .Body = Message 'Lesebestätigung deaktivieren .ReadReceiptRequested = False 'Anhang beifügen '.Attachments.Add "" .Send End With Set olApp = Nothing End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nepumuk
Danke für Deine Antwort, hinsichtlich der vielen User die Deine Hilfe jeweils persönlich anrufen, fühle ich mich geehrt eine Hilfestellung erhaltenzu haben.
Nun zu der Problemlösung von Groupwise, habe in einem Skandinavischen Novell Forum den folgenden Script entdekt der eventuell für Groupwise tauglich ist.
Ist jemand in der Lage diesen mit Groupwise zu testen? Weil leider habe ich zur Zeit kein Groupwise auf meinem Rechner installiert (arbeite extern).
Option Explicit


Sub Groupwise_Mail()
Dim objGroupWise As Object
Dim objAccount As Object
Dim objMessages As Object
Dim objMessage As Object
Dim objMailBox As Object
Dim objRecipients As Object
Dim objRecipient As Object
Dim objAttachment As Object
Dim objAttachments As Object
Dim objMessageSent As Variant
Dim Subject As String, Attachment As String, Recipient As String, Bodytext As String
On Error Goto Errorhandling
'Här skapas e-postinnehållet.
Subject = "Test"
'Attachment = ThisWorkbook.Path & "\Test.xls"
Recipient = "mail@mail.com"
Bodytext = "Enligt överenskommelse"
'Här ansluter vi till GroupWise och skapar själva e-postet.
Set objGroupWise = CreateObject("NovellGroupWareSession")
Set objAccount = objGroupWise.Login
Set objMailBox = objAccount.MailBox
Set objMessages = objMailBox.Messages
Set objMessage = objMessages.Add("GW.MESSAGE.MAIL", "Draft")
Set objRecipients = objMessage.Recipients
Set objRecipient = objRecipients.Add(Recipient)
Set objAttachments = objMessage.Attachments
Set objAttachment = objAttachments.Add(Attachment)
With objMessage
.Subject = Subject
.Bodytext = Bodytext
End With
Set objMessageSent = objMessage.Send
ExitHere:
Set objGroupWise = Nothing
Set objAccount = Nothing
Set objMailBox = Nothing
Set objMessages = Nothing
Set objMessage = Nothing
Set objRecipients = Nothing
Set objAttachments = Nothing
Set objRecipient = Nothing
Set objAttachment = Nothing
Exit 

Sub
Errorhandling:
MsgBox Err.Description & " " & Err.Number
Resume ExitHere
End 

Sub
Vielen Dank
ManhartM

Private Sub MailAnDM_Click() Dim olApp As Object Dim objGroupWise As Object Dim objAccount As Object Dim objMessages As Object Dim objMessage As Object Dim objMailBox As Object Dim objRecipients As Object Dim objRecipient As Object Dim objAttachment As Object Dim objAttachments As Object Dim objMessageSent As Variant Dim Subject As String, Attachment As String, Recipient As String, Bodytext As String Message = InputBox("VB-SCRIPT PROGRAMMING:" & Chr(10) & _ "DM-Planning-Team" & Chr(10) & Chr(10) & _ " Bitte geben sie Ihre Nachricht an das DM Team ein! ") If Message = "" Then MsgBox "SORRY" & Chr(10) & "Sie haben keine Nachricht verfasst," & _ "das Email wird nicht versendet" End End If On Error GoTo Errorhandling 'Betreffzeile füllen Subject = "Test" 'Anhang deklarieren Attachment = "" 'Mailempfänger Recipient = "Mail@Mail.com" 'Mail Hauptnachrichten Text Bodytext = Message 'Übergabe an Groupwise Set objGroupWise = CreateObject("NovellGroupWareSession") Set objAccount = objGroupWise.Login Set objMailBox = objAccount.MailBox Set objMessages = objMailBox.Messages Set objMessage = objMessages.Add("GW.MESSAGE.MAIL", "Draft") Set objRecipients = objMessage.Recipients Set objRecipient = objRecipients.Add(Recipient) Set objAttachments = objMessage.Attachments 'musste deaktivieren da kein Anhang definiert Set objAttachment = objAttachments.Add(Attachment) With objMessage .Subject = Subject .Bodytext = Bodytext End With Set objMessageSent = objMessage.Send ExitHere: Set objGroupWise = Nothing Set objAccount = Nothing Set objMailBox = Nothing Set objMessages = Nothing Set objMessage = Nothing Set objRecipients = Nothing Set objAttachments = Nothing Set objRecipient = Nothing Set objAttachment = Nothing Exit Sub Errorhandling: MsgBox Err.Description & " " & Err.Number Resume ExitHere End Sub

Hallo Mirco
Das ist natürlich möglich, fange einfach die Meldung ab und editiere Sie in einer Textbox.
Zu den Empfängern das selbe, abfangen und anschliessend die Emailadresse an die Variable übergeben.
Beispiel für Email Loop:
' diese Dim zusätzlich erstellen
Dim i As Integer
'Unter dem folgenden Eintrag eine Schlaufe einfügen

Set objRecipients = objMessage.Recipients
'Jetzt die Schlaslaufe einbinden bei Nein wird Emailadressen eingabe abgebrochen
'und mit allen bisher eingegebenen Adressen versendet

For i = 1 To vbNo
Recipient = InputBox()
Set objRecipient = objRecipients.Add(Recipient)
MsgBox "Weitere Adresse eingeben?", vbYesNo, "Adressen ergänzen!"
Next i
'jetzt bei dieser Stelle weiter
Set objAttachment = objAttachments.Add(Attachment)
Gruss
Martin
Ps die Textbox sollte Dir jemand anderes erklären, da bin ich noch nicht fit.

Beliebteste Forumthreads (12 Monate)

Groupwise statt Outlook.Application

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Groupwise statt Outlook.Application

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread