Excel Zelle auslesen für Outlook Betreff

  • Sonstige

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von no idea.

    Excel Zelle auslesen für Outlook Betreff

    Hallo,

    Hatte bis dato noch nichts mit VB zu tun und müsste für eine teilaufgabe Zellen eines Excel Dokuments auslesen um den inhalt als betreff im Outlook einbinden.

    Erhalte immer den fehler, "Sub oder Funtcion nicht definiert".

    Ich bin mir sicher, dass ich da nur n blöden Fehler mache und würde mich über Hilfe freuen!



    bis dato habe ich folgenden code

    Quellcode

    1. Sub sendto()
    2. Dim myOlApp As Outlook.Application
    3. Dim myItem As Outlook.MailItem
    4. Dim myRecipient As Outlook.Recipient
    5. Set myOlApp = CreateObject("Outlook.Application")
    6. Set myItem = myOlApp.CreateItem(olMailItem)
    8. 'Empfänger werden gesetzt
    9. Set myRecipient = myItem.Recipients.Add("test")
    11. 'Variable deaklariert und Pfad zugewiesen
    12. Dim xlspath As String
    13. xlspath = "U:\test.xls"
    15. 'Open Excel Document
    16. Set xl = CreateObject("Excel.Application")
    17. xl.Workbooks.Open (xlspath)
    18. xl.Visible = True
    19. Set Master = xl.Worksheets("statistik")
    21. 'get Betreff aus Excel FIle
    22. myItem.subject = Range("A6").Value
    25. myItem.Display
    27. End Sub

    Wahrscheinlich kommt die Fehlermeldung in Zeile 22.

    Das Range-Objekt bezieht sich ja auf die Excel-Tabelle. Demnach muss wahrscheinlich eine der folgenden beiden Möglichkeiten statt deiner Zeile 22 stehen:

    Visual Basic-Quellcode

    1. myItem.subject = xl.Range("A6").Value
    2. myItem.subject = Master.Range("A6").Value


    PS: Herzlich willkommen. Ich sehe gerade, dass das dein erster Beitrag ist.

Facebook
Telefonspende