Frage an ManhartM
ralf
habe hier eine Formel von Dir von 2005 gefunden. Es ging um GroupWise. Die Formel funktioniert einwandfrei. Habe nun zwei Fragen und auch Bitten. Kannst Du mir sagen, wie ich einen Empfänger als "CC" einsetzen kann, am besten in der Form: Recipient CC= Range("A1"), als Beispiel.
Die nächste Frage,wenn ich GroupWise nicht offen habe, öffnet sich ein Fenster mit der Abfrage nach dem Passwort.
Kann ich das Passwort von GroupWise auch so abfragen lassen: Password=Range("A1").
Natürlich können auch alle anderen helfen!
Hier noch mal die Formel:
Private Sub CommandButton1_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 = Range("A13")
If Message = "" Then
MsgBox "SORRY" & Chr(10) & "Sie haben keine Nachricht verfasst," & _
"das Email wird nicht versendet"
End
End If
'Betreffzeile füllen
Subject = "Korr_Arbeitszeit"
'Anhang deklarieren
Attachment = "C:\Documents and Settings\local\Desktop\Arbeitszeit\Arbeitszeit_November_2009. _
xls"
'Mailempfänger
Recipient = Range("A1")
'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
End Sub