Microsoft Excel

Herbers Excel/VBA-Archiv

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

Frage an ManhartM | Herbers Excel-Forum


Betrifft: Frage an ManhartM von: ralf funk
Geschrieben am: 05.01.2010 19:57:47

Hallo ManhartM,
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

  

Betrifft: AW: Ich bin nicht ManhartM, aber... von: JOWE
Geschrieben am: 05.01.2010 20:47:45

ralf,
Du könntest mal hier lesen: http://msdn.microsoft.com/en-us/library/aa211006(office.11).aspx