Supportnet / Forum / Tabellenkalkulation

Hi, ich habe in Excel eine Liste die sich ändert. Nun möchte ich über Outlook regelmäßig eine EMail rausschicken die den aktuellen Stand aus Excel zeigt. Angenommen in Excel steht der Wert den ich in der EMail haben möchte in der Zelle O25. Wie kann ich das realisieren? Danke, Paul

Nabend Paul,

nachfolgender Code sollte das machen, was Du möchtest. Kopiere ihn in ein StandardModul.

Sub E_Mail_senden()
Dim OutlookStarten As Object, Mail As Object
Dim OutlookStarten As Object, Mail As Object
Set OutlookStarten = CreateObject("Outlook.Application")
Set Mail = OutlookStarten.CreateItem(0)
Mail.TO = "Hier E-Mailadresse"
Mail.CC = ""
Mail.Subject = "Betreffzeile"
Mail.Body = Range("A1").Value
Mail.Display
Set Mail = Nothing
Set OutlookStarten = Nothing
End Sub

Der Code öffnet in Outlook eine neue E-Mail und trägt den Wert aus zelle O25 dort ein. Du mussst den Code aber noch etwas anpassen. In der Zeile

Mail.TO = "Hier E-Mailadresse"


mussst Du den Text Hier E-Mailadresse löschen und die richtige Empfaängeradresse eintragen. In Zeile

Mail.Subject = "Betreffzeile"


musst Du den Text Betreffzeile gegen Deinen Betrefftext austauschen.

Da ich nicht weiß, ob Du Dich mit VBA (Visual Basic) auskennst, kommt hier eine kurze Anweisung, wie Du den Code in Deine Tabelle bekommst.

1. Markiere die Anweisung aus diesem Beitrag und Kopiere (Strg c) diesen.

2. Klicke in Deiner Exceldatei in der Menüleiste nacheinander auf Extras => Makro => Visual Basic Editor oder drücke die Tastenkombination Alt F11

3. In dem neu geöffneten Fenster suche auf der linken Seite nach dem Eintrag VBA Projekt(Hier der Name Deiner Tabelle) und klicke doppelt auf diesen Eintrag

4. Klicke danach nacheinander in der Menüleiste auf Einfügen => Modul.

5. Füge nun die vorher kopierte Anweisung in das rechte leere Fenster ein.

Starten kann man solch ein makro z.B mit einer Schaltfläche. Da ich nicht weiß, ob Du weißt, wie man eine Befehlsschaltfläche in ein Tabellenblatt einfügst, kommt hier eine kurze Anweisung.

1. Gehe in der Menüleiste auf Ansicht => Symbolleiste => Steuerelement-Toolbox

2. Klicke auf die 6.Schaltfläche von links (Schaltflächenkommentar: Befehlsschaltfläche)

3. Positioniere die Schaltfläche in Deinem Tabellenblatt und passe gegebenenfalls die Größe an.

4. Klicke in der Symbolleiste auf die 3.Schaltfläche von links (Schaltflächenkommentar: Code anzeigen).

5. In das geöffnete Fenster schreibst Du zwischen die Texte “Private Sub CommandButton1_Click()“ und “End Sub“ in die Leerzeile Call Makroname oder nur der Makroname.

6. Klicke in der Symbolleiste auf die erste Schaltfläche von links um den Entwurfmodus zu beenden (Schaltflächenkommentar: Entwurfmodus beenden).

Wenn Du alles richtig gemacht hast, sollte das Makro, nachdem Du die Schaltfläche betätigt hast, abgearbeitet werden.

Du solltest zum Abschluss noch die Sicherheitseinstellung, die beim Öffnen der Datei abgefragt wird, kontrollieren. Klicke dazu nacheinander in der Menüleiste wieder auf Extras => Makro und dann auf Sicherheit.... Gehe, falls nicht schon angezeigt, auf die Registerkarte Sicherheitsstufe und schaue dort nach, ob die Einstellung Mittel aktiviert ist. Wenn nicht, aktiviere diese Einstellung, da sonst der Code nicht ausgeführt werden kann. Beim nächsten Öffnen Deiner Datei kommt eine Abfrage, ob Makros aktiviert oder deaktiviert werden sollen. Klicke auf aktivieren und der Code wird ausgeführt.

So, ich hoffe Du kommst klar. Wenn nicht, melde Dich wieder.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Vielen Dank für die ausführliche Antwort, du hast mir damit sehr geholfen.

Viele Grüße,

Paul

• Excel-Outlook-Verknüpfung