Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mail Versenden

Mail Versenden
10.10.2007 07:19:00
Heinz
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


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mail Versenden
10.10.2007 07:27:18
Heinz
Hallo Leute
Habe das Problem mit einen neuen Makro gelöst.
Danke & Gruß
Heinz
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige