Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

uralte Formel | Herbers Excel-Forum


Betrifft: uralte Formel von: Ralf
Geschrieben am: 21.12.2009 14:53:58

Hallo, habe vor einiger Zeit diesen Beitrag gefunden
Betrifft: Groupwise statt Outlook.Application
von: ManhartM
Geschrieben am: 16.07.2005 21:13:24
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

  

Betrifft: Dreifach von: Hajo_Zi
Geschrieben am: 21.12.2009 15:00:13

https://www.herber.de/forum/messages/1125358.html


Beiträge aus den Excel-Beispielen zum Thema "uralte Formel"