Microsoft Excel

Herbers Excel/VBA-Archiv

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

Mail Versenden

Betrifft: Mail Versenden von: Heinz H
Geschrieben am: 10.10.2007 07:19:00

Guten morgen Leute

Ich habe einen Code der mir per Button das Mailpogramm öffnet und die mail Adresse von einer TextBox automatisch einträgt.
Nun habe ich einen 2 Button (CommandButton3) und eine 2. TextBox (TextBox14) hinzugefügt.

Nur funkt. das mit den 2 Button nicht.
Es wird immer nur eine TextBox angesprochen.

Entweder TextBox 10 oder TextBox 14

Könnte mir bitte dabei jemand weiterhelfen ?

Gruß Heinz

Sub MailSenden()

Dim StrName     As String
Dim objOutlook  As Object
Dim objMail     As Object

   Set objOutlook = CreateObject("Outlook.Application")' mit CommandButton3
   Set objMail = objOutlook.CreateItem(0)
   StrName = UserForm2.TextBox10.Value
   
   Set objOutlook = CreateObject("Outlook.Application") ' mit CommandButton9
   Set objMail = objOutlook.CreateItem(0)
   StrName = UserForm2.TextBox14.Value
   
   
   With objMail
      .To = StrName
      '.Subject = "Betreff (Testmail) ..."
      '.Body = " Sehr geehrte Damen und Herren ... "
      .ReadReceiptRequested = True
      .Display     ' oder direkt Send
   End With

   Set objOutlook = Nothing
   Set objMail = Nothing

End Sub


  

Betrifft: AW: Mail Versenden von: Heinz H
Geschrieben am: 10.10.2007 07:27:18

Hallo Leute
Habe das Problem mit einen neuen Makro gelöst.

Danke & Gruß
Heinz


 

Beiträge aus den Excel-Beispielen zum Thema "Mail Versenden "