Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

uralte Formel

uralte Formel
Ralf
Hallo, habe vor einiger Zeit diesen Beitrag gefunden
Der Code funktioniert prima. Habe nun zwei Anliegen dazu. kann mir jemand sagen, wie ich einen Empfänger als CC setzen kann, am besten etwa in der Form "CC=Range("...").
Die zweite Frage, wie kann ich das Passwort von GroupWise in das Tabellenblatt schreiben, damit es dort abgefragt wird, am besten auch in der Form "PW=Range("....").
danke im Voraus.
Ralf
Füge den Code am besten gleich noch an.
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige