Wert eines Radiobuttons und eines Textfeldes per Email verschicken

  • Sonstige

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von jakeelee.

    Wert eines Radiobuttons und eines Textfeldes per Email verschicken

    Hi,

    I build an outlook form from which I can send an email by pressing a send button (see code).
    How must I change the code so that the values of the radio buttons and the text field that are in this form are send along with the email?

    Sub CommandButton1_Click()
    Dim myolApp
    Dim myItem
    Set myolApp = CreateObject("Outlook.Application")
    Set myItem = myolApp.CreateItem(olMailItem)
    Set myItem = Application.CreateItem(0)
    myItem.To = "h......w......@mycompany.com"
    myItem.Subject = "Meine Exchange Mailbox"
    myItem.Body = "hier come the values of the buttons...."
    myItem.Send
    Set myolApp = Nothing
    Set myItem = Nothing
    End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „jakeelee“ ()

    Like that?

    Visual Basic-Quellcode

    1. For Each obj In UserForm1.Controls
    2. Select Case LCase(TypeName(obj))
    3. Case "textbox"
    4. bodystr = bodystr + obj.Name + ": " + CStr(obj.Text) + Chr(13)
    5. Case "optionbutton"
    6. bodystr = bodystr + obj.Name + ": " + CStr(obj.Value) + Chr(13)
    7. Case "checkbox"
    8. bodystr = bodystr + obj.Name + ": " + CStr(obj.Value) + Chr(13)
    9. End Select
    10. Next

    and then change

    myitem.body = strbody

    Dein Skriptvorschlag

    ich bin ziemlicher Neuling auf diesem Gebiet und hab das jetzt einfach mal eingefügt. Es sieht jetzt so aus:

    Sub CommandButton1_Click()
    Dim myolApp
    Dim myItem
    Set myolApp = CreateObject("Outlook.Application")
    Set myItem = myolApp.CreateItem(olMailItem)
    Set myItem = Application.CreateItem(0)
    myItem.To = "h......w......@mycompany.com"
    myItem.Subject = "Meine Exchange Mailbox"

    For Each obj In UserForm1.Controls
    Select Case LCase(TypeName(obj))
    Case "textbox"
    bodystr = bodystr + obj.Name + ": " + CStr(obj.Text) + Chr(13)
    Case "optionbutton"
    bodystr = bodystr + obj.Name + ": " + CStr(obj.Value) + Chr(13)
    Case "checkbox"
    bodystr = bodystr + obj.Name + ": " + CStr(obj.Value) + Chr(13)
    End Select
    Next
    myitem.body = strbody
    myItem.Send
    Set myolApp = Nothing
    Set myItem = Nothing
    End Sub




    bei mir kommt dann beim Ausführen der Fehler:

    Objekt erforderlich: 'UserForm1"



    und muss das nicht:

    myitem.body = strbody

    heissen?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „jakeelee“ ()

    Schreibst Du jetzt auf Deutsch oder auf Englisch? In Deinem Post heisst es "are in this form" und ich bin dementsprechend davon ausgegangen, dass Du eine Userform benutzt. Wenn diese nicht Userform1 heisst, musst Du natürlich den Namen ändern.

    Und was meinst Du, mit "und muss das nicht:

    myitem.body = strbody

    heissen?"

    ? Was habe ich denn geschrieben?
    sorry, da hab ich mich vertippt.

    Ich meinte im script heisst es "bodystr"


    WIE BEKOMME ICH DEN HERAUS, WIE DAS FORMBLATT BEI MIR HEISST?

    Sorry, aber bin Anfänger

    Jakeelee

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „jakeelee“ ()

    so, ich habe das ganze jetzt nochmal neu im VBA Editor erstellt (siehe 2.PNG im Anhang). Wenn ich jetzt das Ganze abspeichere und den VBA Editor schliesse, ist das angezeigte Formblatt sowohl im Entwurfsmodus wie auch ausgeführt leer (siehe 3.PNG).
    Wie bekomme ich denn nun das Formular veröffentlich und die/das VBA ausgeführt?

    Tausend Dank für deine Geduld
    Jakeelee
    Bilder
    • 2.PNG

      60,43 kB, 1.057×765, 153 mal angesehen
    • 3.PNG

      28 kB, 472×412, 145 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „jakeelee“ ()