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