Die neuste Version von Outlook unterstützt VBA nicht mehr. Eine alternative Möglichkeit um Mails zu versenden, zeige ich in diesem Video: th-cam.com/video/5G5QR9Anp8M/w-d-xo.html Diese Methode funktioniert aktuell noch für Outlook. Nutze dazu den smtpserver "smtp-mail.outlook.com" und den smtpserverport 25. LG Kai
Hallo Kai, deine Videos sind echt toll und helfen mir sehr. Habe ein Frage, wie kann ich eine Tabelle hinzufügen beim Senden einer Mail.(nich als Anhang) Würde mir sehr helfen, danke dir.
Hallo Kai, das stimmt leider. Die COM-Schnittstelle fällt weg, soll aber wohl bis 2029 noch erhalten bleiben. Ich kann mir aber nicht vorstellen, dass sie das aufrechterhalten werden....
Hallo Kai - Erst einmal Daumen hoch für Deine VBA Beiträge ! Alles was Du beschrieben hat funktioniert 1A !! Ich hätte da ein Sonderfall - BESCHREIBUNG -> Ich habe ein Script geschrieben welches einen Reiter als pdf Speicher. Der Anhang den ich in die E-Mail packen möchte, ist genau diese pdf Datei. Mit anderen Worten, ich kann den Dateinamen nicht "fix" vergeben, da es diesen noch nicht gibt (zumindest nicht an Stelle "xy" auf irgendeinem Drive) - Der Name der Datei wird "nebenbei" auch aus 2 "Feldern" z.B.: a1 u a2 zusammengefügt. Der prinzipielle Ablauf ist klar - Die Datei aus Reiter "xy" muss erst erstellt werden und danach der Dateiname "abgegriffen" werden. Ich glaube das wird so zu kompliziert . Ich versuche es mal anders -> Ich möchte Reiter "X" aus der Exceldatei die ich gerade nutze in die E-Mail hängen und zwar als pfd. (PS.: Die ganze Datei hineinzuhängen habe ich hinbekommen) Nochmals Daumen hoch für Deine Beiträge !!!
Hi, das Video hat mit sehr geholfen. Ich konnte dies sehr gut in meine Code einbauen. Auch die Erklärung der Einzelnen Funktionen ist sehr hilfreich. Leider erscheint in der Ausgegebenen E-Mail die Texten in der ersten Zeile (Zeilenumbruch ebenfalls mit erstellt) in einer anderen Schrift als in der zweiten oder dritten? Wie kann ich das Format (Schrift Art (Arial) und Schrift Größe (Gr.11) formatieren (ob vorher oder nach den Eintrag der vorgegebenen Texte wäre mir egal)? Vielen Dank.
Hallo Kai, danke für das tolle Video. Das ist ein sehr spannendes Thema, was Du sicher hier noch ausbauen kannst um noch mehr Interessenten zu bekommen. Bsp. Anhang direkt aus der Excel erstellen (z.B. in einem anderen Schritt wird ein PDF einer Rechnung erstellt, der Pfad soll dann an den Prozess "Mail" übergeben werde und die erezugte Rechnung wird als Anhang eingefügt). Body dierekt aus einem Textfeld nehmen. Also nicht den Body der Mail in VBA schreiben, sondern in einem Textfeld und VBA zieht sich den entsprechenden Text aus einem Textfeld. So könnten unterschiedliche Mail Inhalte mit dem Prozess leichter umgesetzt werden.
Hi Kai , super Video. Aber warum wird die mail erst gesendet wenn ich Outlook öffne ? Gibt es da in Outlook eine Einstellung, damit es direkt von Excel aus versendet wird ?
Hallo Joachim, Excel kann als Programm keine Mails versenden. Wir können im Hintergrund Outlook aufrufen, damit wir darüber die Mails versenden. LG Kai
Ultra starkes Viedeo! Hab damit mein erstes Makro entwickelt was wirklich viel Zeit spart. Gibts es denn vielleicht eine Möglichkeit, dass immer die Letzte Zeile aus einer bestimmten Spalte als Datenquelle für z.B. den Empfänger verwendet wird? Sonst müsste man ja immer das Makro ändern falls die Excel ergänzt wurde und man nun die Mail an die ergänzte Zeile senden möchte. VG!
Hallo Christian! Danke für dein Feedback. Bei einer intelligenten Tabelle kannst du die anzusprechende Spalte immer mit der Spaltenüberschrift und auch relativ einfach die letzte Zeile ansprechen. Siehe dazu auch mein Video Eingabeformular mit Datenbank: th-cam.com/video/CXvpMMb8vw4/w-d-xo.html Hoffe das hilft dir. Lg, Kai
Das Video gefällt mir sehr gut. Ich habe das Makro auch nachgebaut. Jedoch habe ich noch ein Problem. Bei dem Anhang möchte ich gerne auf einen Pfad verweisen, der in einer Zelle (Tabelle 2 / T25) hinterlegt ist. Der Pfad ist nicht Fix, sondern Variabel. Wie muss ich den Befehl (Attachments.Add) anpassen?
Hallo Kai, tolles Video👍 Ist es möglich das per Makro erstmal "Daten" -> "alle aktualisieren" ausgeführt wird und dannach automatisch das Versenden der Mail erfolgt? Jedoch soll die Excel nicht als Anhang in der Mail angefügt werden. Es soll die komplette Tabelle aus den 2. Tabellenblatt in dem E-Mail Body eingefügt werden (nicht nur die Werte aus der Tabelle, sondern inkl. das komplette Tabellen Layout)? Wäre super wenn du hierzu ein Video erstellen würdest 🙂
Hallo Kai, ein tolles Video, welches mir schnell geholfen hat. Leider wird meine Signatur trotz des & .HTMLbody nicht übernommen. Hast Du eine Idee, was ich tun muss?
Hallo Frank, auch ich bin immer wieder begeistert von deinen Videos und habe heute mal eine Frage. kann ich meinen persönliches Personen Album auch teilen? Dann müssen meine Familienmitglieder, die Zugriff auf die Fotos haben, nicht auch wieder alles zuordnen
Hallo Kai, dein Kanal hilft mir bei meiner täglichen Arbeit sehr! Ich hänge aber gerade bei dem Versuch mehrere Excel-Dateien die ich auswähle kann, an eine Outlookmail anzuhängen. Bei einer Datei funktioniert alles problemlos. Könntest du mir bitte einen Tipp geben? Meine Recherchen waren bislang erfolglos. VG und Danke
Hallo, danke für die tolle Präsentation. Noch eine Frage: Gibt es eine Möglichkeit, die Outöook-Mail parallel auch als separate .pdf in einem Ordner zu speichern? Danke für kurze Rückinformation.
Hallo Kai, geniales Video. Ich habe mit VBA noch nicht viel am Hut aber es hat funktioniert. Eine Frage hätte ich noch: Ich habe im Outlook mehrere E-Mail Kontos. Ich möchte die E-Mail, die ich via EXCEL versende mit einem ganz bestimmten Konto versenden. Wie kann ich das angeben? Herzlichen Dank und Grüsse aus der Schweiz Koni
Hallo, danke für das Video ! Das hat mich jetzt ein ganzes Stück weitergebracht. Wie würde es denn aussehen, wenn man in einer Mappe einige Berechnungen durchführt, die Ergebnisse innerhalb dieser Mappe in eine Tabelle einfügt und die Tabelle anschließende per Outlook an eine Mail_Liste verteilen möchte ?
Hallo Kai Kann es sein , dass das VBA um die Datei anzuhängen in der Excel Version 2021 nicht funktioniert? Mir funktioniert der VBA Code nicht so wie im Video. Wenn ich diese Zeile lösche, dann wird einfach das PDF erstellt und das Mail geöffnet, aber ohne Anhang.
Hallo, schau dir gerne folgendes Video an, um den Mailversand mit anderen Programmen umzusetzen: th-cam.com/video/5G5QR9Anp8M/w-d-xo.html&ab_channel=KaiWeissmann LG Kai
Hallo Kai, super erklärt !!! Bin echt ein Fan von deinen Videos ! Vielleicht kannst du auch mal ein Video zu meinem aktuellen Problem drehen: Ich habe in Excel einen Report mit einigen KPI's erstellt. Diese Excel Datei aktualisiere ich jeden Morgen und kopiere dann die KPIs manuell aus der Excel Datei in eine Mail (In einen Standard Text in eine Mail) und verschicke diese an die Empfänger. Der Text ist immer der selbe. Das rauskopieren der Kennzahlen und diese in eine Mail zu packen, nimmt viel Zeit in Anspruch. Kann man das nicht automatisieren ? Dass die Werte bestimmter Zellen an eine bestimmte Stelle eines Textes in einer Mail eingefügt und die mail dann jeden morgen um 9 Uhr automatisch verschickt wird? Das wäre sooo genial, wenn das gehen würde. LG aus Berlin.
Hallo Kai, Super ich habe nur noch ein kleines Problem. Wenn ich denn Anhang (Bild) ohne Anhang direkt ins Mail am Schluss einfügen möchte, wie geht das? ich finde keine Lösung um ein Logo oder Signatur als Bild einzufügen, so dass der Empfänger es direkt sieht. Evtl. hast du eine Lösung
Hallo Kai, vielen Dank für dein Video. Ich habe eine Frage. Gibt es eine Möglichkeit als Anhang eine manuell ausgewählte Datei anzuhängen? Ich stelle es mir so vor, dass das Makro, wie du gezeigt hast, die Mail erstellt, die Empfänger und Text einfügt und dann ein Dialogfenster oder Dateifenster aufgeht (mit vordefinierten Ordner) aber ich dann selbst auswählen kann, welche Datei genau an die Mail angehängt wird. Wenn ich auf Bestätigen drücke soll das Makro weiterlaufen. Ist so etwas möglich? Danke für deine Hilfe! Grüße
Hallo, freut mich, dass dir das Video gefällt. Was du beschreibst, kannst du auf jeden Fall umsetzen. Wie du eine Datei auswählen kannst, zeige ich bspw. in diesem Video: studio.th-cam.com/users/videoMl-B5Ikz5g8/edit LG Kai
Hallo lieber Kai, das Video ist super und hat mir sehr weitergeholfen :) Ich habe allerdings noch eine Frage: Wie schaffe ich es, dass die Mail das Excel Arbeitsblatt als Anhang enthält? Die Datei die das Makro enthält führt den Befehl aus, dass eine Mail via Outlook verschickt werden so, gleichzeitig ist sie aber auch der Anhang der Mail. Es geht um 2 Tabellenblätter die als Anhang enthalten sein sollen. Ich weiß, dass ist ein wenig komplizierter. Weil das Excel geschlossen sein muss, um es an eine Mail zu hängen. Vielen lieben Dank für deine Hilfe. Viele Grüße aus München Aline
Hey Aline! Es freut mich, dass dir das Video geholfen hat. Ich würde spontan vorschlagen, per VBA eine Kopie der aktuellen Datei abzuspeichern und diese dann als Anhang zu versenden. Hoffe das hilft dir. Lg, Kai
Hi, cooles Video. Eine Frage: Kann man im HTML Body die Schrift für Outlook verändern? Damit die Schriftart in Outlook Arial ist ? Vielen Dank für die Hilfe.
Hallo Kai, Ich möchte aus einer Excell Termine ins Outlook bringen und diese gleich a die gewünschten Teilnehmer versenden. Leider habe ich kein VBA auf dem Rechner (geschlossenes Dienstsystem). Die letzte Jahre habe ich immer die Termine aus der Excell ins Outlook im-/exportiert und die Empfänger händisch eingefügt. Das ist aber mehr als aufwendig. Kannst Du helfen? Gruß Thomas
Hallo Kai, das war ein super Video! Vielen Dank für die Erklärungen! Ich hätte dazu nur eine Frage. Ich habe z.B. mehre Signaturen. Gibt es mit .htmlbody auch eine Möglichkeit eine andere Signatur zu auswählen? VG Nico
Hi, die Videos machst du echt super. Macht Spaß dich die Videos anzusehen. Kannst du vielleicht auch ein Video machen, wie man aus Excel ein E-Mail über IBM Notes senden kann? Mit freundlichen Grüßen
Hallo! super erklärt, meine frage ich habe eine liste mit Vereinsmitglieder wo auch die Geburtstage mit erfasst ist. Wie kann ich an hat des Datum mich über Qutlook an ein Gebrutstag erinnern lassen, so das einer im Vorstand ein E-Mail bekommt. Weil man schau ja nicht jeden tag in die Excel Tabelle.
Hallo Sven, danke für dein Feedback! Erstmal könntest du ein Makro bauen, das eine Mail an den Vorstand verschickt mit allen offenen Geburtstagen. Das könntest du dann täglich einmal ablaufen lassen. In diesem Video zeige ich, wie man Makros planen kann: www.vbatrainer.de/makro-planen/ Ich hoffe das hilft dir weiter :) LG Kai
Hi, coolen Kanal hast du ! Habe die Funktion schon seit längerem in einige Reports eingebaut. Was mir aber immer noch nicht gelungen ist, meine Signatur bzw. desjenigen der die Datei versendet, an den Text der Mail anzuhängen. Nicht so wie du es gezeigt hast, sondern die bereits in Outlook angelegten und sonst verwendeten Signaturen. Ist das auch möglich ? Die sollte man doch sicher ansprechen können.
Hi Jochen, vielen Dank für dein nettes Feedback! Mit der Methode im Video wird die in Outlook gewählte Standard-Signatur eingefügt. In meinem Fall war das "Das ist eine Testsignatur!". Falls du eine andere Signatur auswählen möchtest, kannst du durch den Ordner "%APPDATA%\Microsoft\Signatures" loopen und die gewünschte Signatur auslesen. In folgendem Artikel wird das gut erklärt: www.rondebruin.nl/win/s1/outlook/signature.htm. Ich habe es gerade ausprobiert und hatte so Zugriff auf meine Signaturen. Ich hoffe das hilft dir weiter :) Falls doch noch Fragen offen sind, schreib mir gerne hier oder per Mail (mail@vbatrainer.de). Viele Grüße Kai
Deine Videos sind der Wahnsinn! Eine super Hilfe um sich als Anfänger herantasten zu können. Mich würde noch interessieren, wie man Mails senden kann, ohne Outlook nutzen zu müssen (ein anderes Mail-Programm nutzbar?). Und funktioniert der Versand nur, wenn man speziell die Microsoft Outlook Objekt-Library auswählt? (in Verbindung mit der Nutzung eines anderen Mail-Programms?). VG Andy
Hallo Kai, besten Dank für die Erklärung! Ich würde gerne einen variablen Dateipfad für den Anhang verwenden, der aus einer Zelle in der Arbeitsmappe ausgelesen werden soll - hättest Du hierfür eine Lösung? LG
Sollte ein Anwender den Verweis auf die Outlook Object Library nicht gesetzt haben, funktioniert der Code nicht. Gibt es auch eine Codemöglichkeit ohne dass ein Haken auf den Verweis gesetzt ist? Falls ja, könnest Du dafür den Code aufzeigen?
Hallo Jürgen, ja, das ist tatsächlich möglich. Wir haben hier early binding verwendet. Das müssten wir auf late binding verändern, damit wir den Bibliotheksbezug nicht mehr benötigen. Mehr Infos dazu findest du hier: docs.microsoft.com/de-de/previous-versions/office/troubleshoot/office-developer/binding-type-available-to-automation-clients LG Kai
Das Video hat mir auch sehr geholfen. Habe damit eben 20 Mails mit personalisierten Zugangsdaten sowie Anhang verschickt. 🙂 Eine Frage noch: Wie funktioniert der Befehl, um die Absenderadresse zu ändern? Bzw. das E-Mailkonto, mit dem ich die Mails verschicke? Ich habe auf der Arbeit mehrere Konten zur Auswahl, ein persönliches und mehrere Sammelkonten auf die verschiedene Kollegen Zugriff haben. Eine Googlesuche und ein paar Versuche haben leider nicht zum Ziel geführt... 😞
Hey Martin! Freut mich, dass es grundsätzlich funktioniert. Das Thema Absenderadresse / Absenderkonto nehme ich mal in die Ideensammlung für zukünftige Videos auf. Lg, Kai
Servus Kai, finde deine Videos verständlich und leicht nachvollziehbar. Habe allerdings bei meinem Projekt jetzt einen Stillstand. Nachdem ich dein Video mit "Dateien aus Ordner auslesen" nachvollzogen habe, möchte ich diese Dateien per Email verschicken. Also 10 Dateien an 10 verschiedene Adressaten, Datei 1 soll an Adressat 1, Datei 2 soll an Adressat 2, u.s.w. geschickt werden. Zum Schluss sollte nachdem das Makro ausgeführt wird. 10 Dateien oder je nachdem wieviel Dateien sich in dem Ordner befindet , mit einmal verschickt werden. Vielleicht kannst du mir ja auf die Sprünge helfen, oder vielleicht ein Video machen ;-) Danke Gruß Jürgen
Hallo Kai, gute Tips für versenden von Daten aus Ecxel mittels Outlook. Habe nur das Problem, dass ich gern einen anderen meiner E-Mail Auccounts und nicht den standartmäßigen Outlook-Account nutzen. Hast du 'ne Idee ?
Hallo Robbi, freut mich, dass es dir gefällt. Um das Konto zu verändern, kannst du .SentOnBehalfOfName = "DEINE MAILADRESSE" schreiben. Wichtig ist, dass das vor .Display gemacht wird. LG Kai
Moin, sehr gutes Video, es hat mir sehr geholfen! Alles prima erklärt, sodass man es versteht und gut mitkommt. :) Gibt es dort auch eine Möglichkeit, dass ich die aktuelle Datei, in der ich das Makro ausführe als E-Mail Anhang mit versenden kann? LG
Hallo Chris, sorry für die späte Rückmeldung. Das kannst du auf jeden Fall machen. Schau mal in den Kommentar von Fabian Frammersberger. Der hat dazu auch schon den Code gepostet. LG Kai
Hallo Kai, das ist sehr hilfreich deine Präsentation aber wie bekomm ich den die Formel hin das er nach jeder Range in eine neu Zeile springt. ich hab das mit vbCrLF versucht klappt leider nicht. strBody = ActiveSheet.Range("X1") & vbCrLf & vbCrLf & vbCrLf & ActiveSheet.Range("X2") & vbCrLf & vbCrLf & vbCrLf & ActiveSheet.Range("X3") & vbCrLf & vbCrLf & vbCrLf & ActiveSheet.Range("H6") & vbCrLf & ActiveSheet.Range("X4") .Value kennst du das Problem ? Danke für deine Hilfe
Hallo Kai, nachdem jetzt alles so funktioniert, wie du es einfach erklärt hast, bleibt bei mir noch eine Frage: Mein Outlook- Account hat 3 eMail- Adressen von mir mir. Wie bringe ich der VBA bei nicht immer den ersten Eintrag zu nehmen?
Hi Kai Leider Funktioniert es bei mir nicht. Bekomme immer dies angezeigt "Fehler beim Kompilieren.: Ein benutzerdefinierter Typ ist nicht definiert." Ich möchte eigentlich eine Mappe schicken und nicht die ganze datei.
Hallo Kai, ich bin erst vor kurzem auf deinen Kanal aufmerksam geworden. Wirklich super was du da machst. Hab dank deiner Zahlreichen Videos schon einige Makros bei mir im Office Optimiert. Sind nämlich alles aufgenommene... Dieses Video interessiert mich auch sehr, habe da auch zwei Makros die aber noch nicht optimiert sind. Ich möchte gerne in den HTMLBody neben dem Text auch einen Zellbereich inkl. Formatierungen wie Schrift, Farbe, Größe, Rahmen usw. mit einfügen nur leider komme ich nicht drauf wie. .HTMLBody = "Dies ist ein Beispieltext" & Tabelle1.Range("B2:G28") Irgendwie so hatte ich es mir vorgestellt funktioniert aber (selbstverständlich?!) nicht. Könntest du mir da einen Tipp geben? Viele Grüße, Laurentius
Hallo, super gute Videos hier. Dieses Video hat mir echt weitergeholfen. Nur habe ich jetzt ein Problem. Die Excel die ich erstellt habe mit dem Code für den E-Mailversand funktioniert nur auf meinem Rechner wen ich diese an jemand anderes Sende funktioniert der Code nicht das die Verweise nicht aktiviert sind. Gibt es eine Möglichkeit diese auch per VBA zu aktivieren?
Hallo Michael, freut mich, dass dir meine Videos gefallen! Ja, das ist tatsächlich möglich. Wir haben hier early binding verwendet. Das müssten wir auf late binding verändern, damit wir den Bibliotheksbezug nicht mehr benötigen. Mehr Infos dazu findest du hier: docs.microsoft.com/de-de/previous-versions/office/troubleshoot/office-developer/binding-type-available-to-automation-clients LG Kai
@@KaiWeissmann Danke für die schnelle Antwort. Nur mein Umgestellter Code funktioniert immer noch nicht. Habe den Code mal per mail Ihnen gesendet. Würde mich über eine Antwort bzw. Korrektur freuen. Danke
Cooles Video. Hat schon mal sehr geholfen. Eine Frage noch: In meiner Excel-Datei sind auch Formen enthalten, wie kann ich die denn in die Mail rüber kopieren?
Hey, freut mich, dass dir das Video weitergeholfen hat! Auf Formeln in Zellen kannst du so zugreifen: Range("A1").Formula Ich hoffe, damit kommst du an dein Ziel :) LG Kai
@@KaiWeissmann Ahhh... ich meinte tatsächlich eine Form, also so ein Dreieck/Viereck, das nicht direkt einer einzelnen Zelle zugeordnet ist. Solang ich den Bereich markier, wird das auch ausgewählt, über einzelne Zellen komm ich da leider nicht ran.
@@massion77 mein Fehler...hatte nicht genau gelesen. Da Mails in HTML geschrieben sind, haben wir da - soweit ich weiß - keine Möglichkeit Rahmen und Objekte einzufügen. Du kannst den Text lediglich mit den HTML-Möglichkeiten hervorherben. LG Kai
Hey Saraze, vielen Dank für das Feedback. Den Wert der Zelle "N1" auf dem Tabellenblatt "Tabelle1" kannst du in den Body einfügen mit .HTMLBody = "Dies ist ein Beispieltext" & Tabelle1.Range("N1").Value & .HTMLBody Ich hoffe das hilft dir weiter :) LG Kai
@@KaiWeissmann Hallo Kai, super Video an der Stelle - weiter so! Ich muss mal - bei der Frage oben, nochmal nachfragen. Es geht hierbei, dass ich in die Mail ein Ausschnitt aus der Pivot (ganze Pivot ist für mich auch okay) in den E-Mail Body packen will. Ich krieg das leider nicht mit dem Code von oben hin... Kannst du mir da helfen? Sub Mail_erstellen() Dim oAp As New Outlook.Application Dim oMail As Outlook.MailItem Set oMail = oApp With oMail .BodyFormat = olFormatHTML .Display .To = Tabelle6.Range("f1") .Subject = "Change" .HTMLBody = "Dies ist ein Beispieltext" & Tabelle6.Range("A4:E6").Value & .HTMLBody .Save End With End Sub Vielen Dank an der Stelle
Moin Kai, sehr gutes Video! Ich habe jedoch ein Problem: ich habe eine liste an kontakten welche jeweils eine Mail mit einem speziellen Anhang bekommen sollen. Die Email sollen vorbereitet aber nicht versandt werden (.Display) . Das klappt beim ersten mal super, beim zweiten, drittem xten mal durchlaufen der Loop wird jedoch keine neue Mail erzeugt, sondern in der bestehenden Mail der Empfänger überschrieben. Das führt am ende dazu, dass statt 20 MA bekommen eine mail mit jeweils einem Anhang nur der letzte MA der Liste eine Mail bekommt aber mit allen 20 Anhängen. Was mache ich da falsch? Danke für die Hilfe im Voraus
Moin, danke für dein Feedback :) Ich habe den Code mal umgeschrieben, um zwei Mails zu erzeugen (geht natürlich auch mit 20 dann). Wichtig ist vielleicht, dass das .Display lediglich bedeutet, dass die Mail angezeigt wird. Erzeugt wird die Mail mit Set oMail = oApp.CreateItem(olMailItem) und gespeichert mit .Save. Hier der Code: Sub Mail_erstellen() Dim oApp As New Outlook.Application Dim oMail As Outlook.MailItem Dim i As Long For i = 1 To 2 Set oMail = oApp.CreateItem(olMailItem) With oMail .BodyFormat = olFormatHTML If i = 1 Then .To = "kaiweissmann@outlook.de;" & Tabelle1.Range("N1").Value Else .To = "MM.@mail.de" End If .CC = "mail@vbatrainer.de" .BCC = "mail@vbatrainer.de" .Subject = "Beispiel-Mail" .HTMLBody = "Dies ist ein Beispieltext" & .HTMLBody .Attachments.Add "C:\Users\kaiwe\Desktop\Testdatei.png" .Save End With Next i End Sub Ich hoffe das hilft dir weiter :) Falls du noch Fragen hast, schreib mir gerne. LG Kai
Hallo Kai, richtig gutes Video, bin echt froh, dass es dich gibt. Ich hätte aber noch eine offene Frage. Wie kann ich den Inhalt einer bestimmten Zelle als Betreff in der E-Mail, die ich verschcken möchte, einfügen?
Freut mich, dass es dir gefällt :) Die Signatur wird automatisch aus dem derzeit angemeldeten Nutzerprofil in Outlook genommen. D.h. wenn ein Kollege dein Makro nutzt, dann erscheint dort automatisch seine Signatur. LG Kai
@@KaiWeissmann ja ok danke aber ich weiß leider die dazugehörigen Befehle nicht die ich in der vba Oberfläche eingeben muss um das zu aktivieren . Kannst du da bitte nochmal unterstützen?
Fehler erkannt , es muss zuvor die Signatur noch einmal im Outlook ,auch wenn diese schon besteht ,under Optionen/ E-mail / Signaturen gespeichert werden erst dann wurde diese mitgenommen. So wars es bei mir. Danke nochmal für das Video
Hallo Kai, wie immer super gut erklärt und alles lässt sich gut nachvollziehen. Eine Frage habe ich: Wie kann ich eine Signatur auswählen (in der Firma haben haben wir unterschiedliche Signaturen)?
Hey grüß dich ich würde gerne eine Signatur mit einem Logo einfügen wie soll ich ich es codieren am besten alles untereinander also Name Abteilung Firmenlabel Firmenadresse Ich habe alles untereinander mit fehlt nur noch das Logo
Hallo, freut mich, dass dir das Video gefällt! Du könntest eine neue Excel-Datei mit dem relevanten Tabellenblatt erstellen, abspeichern und diese Datei dann als Anhang versenden. LG Kai
Hallo Kai, habe den Fehler gefunden. Outlook war falsch installiert und im Office nicht bekannt. Fehler behoben , dein Beispiel funktioniert einwandfrei - TOLL!
Prima Video, danke. FAST genau das, was ich gerade suche, aber vielleicht hast du ja einen Tipp für mich: Und zwar würde ich gerne eine bereits bestehende Outlook-Vorlagendatei aus und mit div. Werten aus Excel starten. Die übergebenen Werte habe ich momentan per "Inhalte einfügen - unformatierten Text" eingefügt, das ist aber nicht ganz so das Wahre :-/. VG Rob
Hey Rob, vielen Dank für dein Feedback :) Vorlagen kannst du öffnen, indem du statt Set oMail=... [aus dem Video] schreibst Set oMail = oApp.CreateItemFromTemplate("C:\Users\kaiwe\AppData\Roaming\Microsoft\Templates\Vorlage.oft") Dabei musst du den Pfad in den Pfad abändern, den du auf deinem PC gesetzt hast. Standardmäßig musst du dadurch nur den Benutzername (kaiwe) durch deinen Benutzernamen ersetzen. Anschließend brauchst du in deiner Vorlagen-Mail Strings, die du mit Excel-Daten ersetzt. Dazu verwende ich bspw. #Excel-Daten1 Du suchst und ersetzt diese Strings dann im HTMLBody mit der InStr-Funktion und ersetzt. Das zeige ich in diesem Video: www.vbatrainer.de/string-funktionen/ Alternativ kannst du statt der Vorlage die komplette Mail auch im VBA-Code definieren. Ich hoffe eine der Lösungswege hilft dir weiter. Schreib mir gerne nochmal, wie es bei dir lief. LG Kai
wenn zelle rot wird (wenn der bestand 0 wird) oder (kleiner als min bestand ) dann eine email rausschicken mit der id; beschreibung; stückzahl; hersteller usw ??? an 3verdchiedene mailadressen
Hallo Norbert, freut mich, dass es dir gefällt. In diesem Video wird die Mail vom Standardkonto versendet. Um das Konto zu verändern, kannst du .SentOnBehalfOfName = "DEINE MAILADRESSE" schreiben. Wichtig ist, dass das vor .Display gemacht wird. LG Kai
@@KaiWeissmann danke für die Info, doch irgendetwas hat MS gemacht das dieser eintrag wohl nicht so mehr funktioniert ( wenigstens hier ) ... .... zum ziel führt .SendUsingAccount = .Session.Accounts(2) 'absenderkonto aus kontenliste festlegen ist natürlich anstrengend/stress dann noch die nummer zu ermitteln ( auch wenn es nur eine schleife ist ) happy hacking
Hallo Norbert, danke für deinen Input. Ich habe zu deiner Anfrage diese Woche ein Video veröffentlicht: th-cam.com/video/Wl-2lMygf4o/w-d-xo.html LG Kai
Hallo Kai, vielen Dank für das informative Video! Ich finde keine Video darüber, wie ich es schaffe, Pdf-Dateien aus mehreren Pfaden in einer Datei zusammenzuführen. Konkret habe ich eine Excel aus Pfad A mit der Nr. 00001_Datei_Dokument. Ich möchte nun, dass mein Makro die ersten fünf Ziffern aus der Datei in Pfad A erkennt und diese in Pfad B und Pfad C sucht, findet, in einer PDF Datei zusammenführt und in Ordner D speichert. Es gibt aber kein Tutorial, der mir das eben beibringen könnte. Vielleicht wäre das eine Idee fürs nächste Video? :-D Freue mich auf kommende Videos von dir!
Hallo Vincenzo, danke für den Vorschlag! Ich schreibe es mal auf, allerdings ist die Videoliste schon relativ lang :P Wünsche dir viel Erfolg bei deinem Projekt! LG Kai
Hallo Kai, vielen Dank für das Video. Hat mir sehr geholfen. Ich habe eine frage zu dem VBA und dem Empfänger. Was muss ich eintragen, damit mehrere Empfänger im BCC aus mehreren Zeilen einer Spalte übernommen werden. Meine Idee war: .BCC = "Gesamt.Range("$D$2:$D$9").Value" aber da wird Angezeigt: Fehler beim Kompilieren: Syntaxfehler. Danke schon einmal!
Hallo Benjamin, lies am besten die Zellen einzeln aus und verbinde sie: .BCC = Range("D2").Value & ";" & Range("D3").Value Hoffe das klappt bei dir :) LG Kai
@@KaiWeissmann Danke für die schnelle Antwort. Klappt der Code auch, in einer intelligenten Tabelle? Da kommen ja immer mehr Zellen dazu. Das müsste ich ja dann jedes mal anpassen oder? Wie würde der Code da ausshen bzw wie mit der Verbindung zu einer speziellen Tabelle eines Blattes? Liebe Grüße
Hallo Kai, tolles Video. Hat mir als VBA Laien echt geholfen. Eine Frage, wie kann ich den Text im Body formatieren? Genaugenommen suche ich die Tab-Funktion aus Word um einen Abstand zwischen zwei Textteilen herzustellen. Fettschrift, unterstreichen und Umbrüche hast du ja bereits erwähnt. Gibt es ein Verzeichnis für diese Formatierungen?
Hallo Andreas, es freut mich sehr, dass dir das Video geholfen hat :) Ein Tab kannst du mit " " einfügen. D.h. der Code würde dann so aussehen: .HTMLBody = "Dies ist ein Beispieltext" & .HTMLBody Ein Verzeichnis kenne ich dafür leider nicht. Ich google die gewollte Formatierung dann immer mit dem Zusatz "HTML". Ich hoffe, das hilft dir weiter. Falls nicht, schreib einfach nochmal :) LG Kai
Tolle Erklärungen. Ich arbeite mich gerade in VBA ein. Mein Programm funktioniert auch. Doch ich suche mich im Netz dusselig nach einer Funktion. Ich nutze eine Liste und möchte dem Programm folgendes sagen: Bitte nutze für deine E-Mail-Adresse Spalte 2 der Zeile, in der du gerade bist. Bis dato kann ich nur sagen, dass sich die Mail-Adresse in der Zelle B2, B3... befindet. Kurz: Sobald die Zeile mit Kontaktdaten und Co. gefüllt ist, möchte ich am Ende der Zeile auf Senden klicken und die fertige Mail sehen und abschicken können. Mit festen Zellen klappt das auch schon. Nur hier stecke ich fest! Daher hoffe ich auf Hilfe. Danke!!!
Hallo Fabian, Die aktive Zeile kannst du mit ActiveCell.Row herausfinden. Das würde ich mir in ene Variable speichern z.B. aktuelleZeile = ActiveCell.Row Und am gewünschten Tabellenblatt kannst du dann den Wert folgendermaßen auslesen aus der 2. Spalte (B) Mailadresse = Tabelle1.Cells(aktuelleZeile, 2).Value Mit der Mailitem.Display Methode, kannst du dir die Mail anzeigen lassen, um noch Anpassungen durchführen zu können. Hoffe das hilft dir. Lg, Kai
Hi Kai, könntest du ein Video machen, wie man bestimmte Bereiche aus einem Excel-Tabellenblatt bspw. als PDF exportieren kann und diese Datei wiederum wie hier in dem Video gezeigt (ohne Umweg über den Desktop?) per .Attachments.Add hinzufügen kann? Noch besser wäre natürlich wenn das mit gleich mehreren Anhängen (also Verschiedene Informationen von mehreren Tabellenblättern in einer Excel-Datei) möglich wäre. Danke dir und Grüße!
@@KaiWeissmann Hey, ja es hat geholfen. Es ist zwar nicht exakt dass was ich brauche, habe mir aber etwas zusammengebastelt indem ich das PDF erstelle, auf den Desktop speichere, in den Anhang haue und danach gleich wieder lösche. So kann ich bestimmte Informationen aus einer Excel extrahieren und direkt per Mail versenden. Danke dir 👍
Hallo Kai Bei mir erscheint die Meldung Laufzeitfehler 429. Beim debuggen verweist er auf den Eintrag "Set oMail = oApp.CreateItem(olMailItem) Danke für deine Hilfe. Gruss Marcel
Hallo Kai, gibt es eine Möglichkeit das aktive Fenster, quasi die neue Nachricht direkt zu schließen nach .save? mit OApp.quit schließt es mir Outlook komplett... Grüße Martin
Die neuste Version von Outlook unterstützt VBA nicht mehr. Eine alternative Möglichkeit um Mails zu versenden, zeige ich in diesem Video: th-cam.com/video/5G5QR9Anp8M/w-d-xo.html
Diese Methode funktioniert aktuell noch für Outlook. Nutze dazu den smtpserver "smtp-mail.outlook.com" und den smtpserverport 25.
LG Kai
Hallo Kai, deine Videos sind echt toll und helfen mir sehr. Habe ein Frage, wie kann ich eine Tabelle hinzufügen beim Senden einer Mail.(nich als Anhang) Würde mir sehr helfen, danke dir.
Ein Video würde sehr hilfreich sein. Danke dir
Hallo Kai, das stimmt leider. Die COM-Schnittstelle fällt weg, soll aber wohl bis 2029 noch erhalten bleiben. Ich kann mir aber nicht vorstellen, dass sie das aufrechterhalten werden....
Hallo Kai, das Video hat mir sehr geholfen. Danke!
Das freut mich!
Erst das 2. Video von dir, und schon bist in meinen top 3 der excel, vba usw videomacher👌🏻
Hallo Frank, vielen Dank für dein super Feedback :) Was war das erste Video denn? LG Kai
Hallo Kai
vielen Dank für deine Tollen Videos
Hallo Kai - Erst einmal Daumen hoch für Deine VBA Beiträge ! Alles was Du beschrieben hat funktioniert 1A !! Ich hätte da ein Sonderfall - BESCHREIBUNG -> Ich habe ein Script geschrieben welches einen Reiter als pdf Speicher. Der Anhang den ich in die E-Mail packen möchte, ist genau diese pdf Datei. Mit anderen Worten, ich kann den Dateinamen nicht "fix" vergeben, da es diesen noch nicht gibt (zumindest nicht an Stelle "xy" auf irgendeinem Drive) - Der Name der Datei wird "nebenbei" auch aus 2 "Feldern" z.B.: a1 u a2 zusammengefügt. Der prinzipielle Ablauf ist klar - Die Datei aus Reiter "xy" muss erst erstellt werden und danach der Dateiname "abgegriffen" werden. Ich glaube das wird so zu kompliziert .
Ich versuche es mal anders -> Ich möchte Reiter "X" aus der Exceldatei die ich gerade nutze in die E-Mail hängen und zwar als pfd. (PS.: Die ganze Datei hineinzuhängen habe ich hinbekommen)
Nochmals Daumen hoch für Deine Beiträge !!!
Hi, das Video hat mit sehr geholfen. Ich konnte dies sehr gut in meine Code einbauen. Auch die Erklärung der Einzelnen Funktionen ist sehr hilfreich. Leider erscheint in der Ausgegebenen E-Mail die Texten in der ersten Zeile (Zeilenumbruch ebenfalls mit erstellt) in einer anderen Schrift als in der zweiten oder dritten? Wie kann ich das Format (Schrift Art (Arial) und Schrift Größe (Gr.11) formatieren (ob vorher oder nach den Eintrag der vorgegebenen Texte wäre mir egal)? Vielen Dank.
Hallo Kai, danke für das tolle Video. Das ist ein sehr spannendes Thema, was Du sicher hier noch ausbauen kannst um noch mehr Interessenten zu bekommen. Bsp.
Anhang direkt aus der Excel erstellen (z.B. in einem anderen Schritt wird ein PDF einer Rechnung erstellt, der Pfad soll dann an den Prozess "Mail" übergeben werde und die erezugte Rechnung wird als Anhang eingefügt).
Body dierekt aus einem Textfeld nehmen. Also nicht den Body der Mail in VBA schreiben, sondern in einem Textfeld und VBA zieht sich den entsprechenden Text aus einem Textfeld. So könnten unterschiedliche Mail Inhalte mit dem Prozess leichter umgesetzt werden.
Lieber Friedrich!
Danke für dein Feedback und die Anwendungsidee.
Ich nehme diese in meine Video-Ideen-Liste mit auf.
Lg, Kai
Danke dir wieder was neues gelernt :-)
Hey Deno, super, freut mich, dass du etwas mitnehmen konntest :)
Hi Kai , super Video. Aber warum wird die mail erst gesendet wenn ich Outlook öffne ? Gibt es da in Outlook eine Einstellung, damit es direkt von Excel aus versendet wird ?
Hallo Joachim, Excel kann als Programm keine Mails versenden. Wir können im Hintergrund Outlook aufrufen, damit wir darüber die Mails versenden. LG Kai
TOP! Genau was ich gesucht habe. Sehr informativ und anschaulich erklärt. Vielen Dank!
Hey Oliver, danke für dein Feedback! LG Kai
Hallo Kai, tolles Video.
Freut mich, dass es dir gefällt!
Ultra starkes Viedeo! Hab damit mein erstes Makro entwickelt was wirklich viel Zeit spart.
Gibts es denn vielleicht eine Möglichkeit, dass immer die Letzte Zeile aus einer bestimmten Spalte als Datenquelle für z.B. den Empfänger verwendet wird? Sonst müsste man ja immer das Makro ändern falls die Excel ergänzt wurde und man nun die Mail an die ergänzte Zeile senden möchte.
VG!
Hallo Christian!
Danke für dein Feedback.
Bei einer intelligenten Tabelle kannst du die anzusprechende Spalte immer mit der Spaltenüberschrift und auch relativ einfach die letzte Zeile ansprechen. Siehe dazu auch mein Video Eingabeformular mit Datenbank: th-cam.com/video/CXvpMMb8vw4/w-d-xo.html
Hoffe das hilft dir.
Lg, Kai
Das Video gefällt mir sehr gut. Ich habe das Makro auch nachgebaut. Jedoch habe ich noch ein Problem. Bei dem Anhang möchte ich gerne auf einen Pfad verweisen, der in einer Zelle (Tabelle 2 / T25) hinterlegt ist. Der Pfad ist nicht Fix, sondern Variabel. Wie muss ich den Befehl (Attachments.Add) anpassen?
Hallo Kai, tolles Video👍
Ist es möglich das per Makro erstmal "Daten" -> "alle aktualisieren" ausgeführt wird und dannach automatisch das Versenden der Mail erfolgt? Jedoch soll die Excel nicht als Anhang in der Mail angefügt werden. Es soll die komplette Tabelle aus den 2. Tabellenblatt in dem E-Mail Body eingefügt werden (nicht nur die Werte aus der Tabelle, sondern inkl. das komplette Tabellen Layout)?
Wäre super wenn du hierzu ein Video erstellen würdest 🙂
Hallo Kai! Geht es eigentlich andersrum auch? Das ich eine Mail sende und der Inhalt taucht dann an einer nächst freien Zelle auf?
Ja, allerdings benötigst du dafür ein Outlook Makro. Wie du sowas machst, zeige ich hier: th-cam.com/video/5i__Yg1skaA/w-d-xo.html
LG Kai
Hallo Kai, ein tolles Video, welches mir schnell geholfen hat. Leider wird meine Signatur trotz des & .HTMLbody nicht übernommen. Hast Du eine Idee, was ich tun muss?
Hallo Frank, auch ich bin immer wieder begeistert von deinen Videos und habe heute mal eine Frage.
kann ich meinen persönliches Personen Album auch teilen? Dann müssen meine Familienmitglieder, die Zugriff auf die Fotos haben, nicht auch wieder alles zuordnen
Hallo Kai, dein Kanal hilft mir bei meiner täglichen Arbeit sehr!
Ich hänge aber gerade bei dem Versuch mehrere Excel-Dateien die ich auswähle kann, an eine Outlookmail anzuhängen. Bei einer Datei funktioniert alles problemlos.
Könntest du mir bitte einen Tipp geben? Meine Recherchen waren bislang erfolglos. VG und Danke
Hallo Kay, vielen Dank; wo sind diese dann abgespeichert? unter dem normalen "gesendet" finde ich die nicht...
Sehr gutes Viedeo, vielen Dank!
Hey Michel!
Sehr gerne.
Lg, Kai
Vielen Dank Kai! Bei mir wird allerdings die Microsoft Outlook Object libary 16 nicht angezeigt. Hast du eine Idee an was das liegen kann?
Hallo, danke für die tolle Präsentation. Noch eine Frage: Gibt es eine Möglichkeit, die Outöook-Mail parallel auch als separate .pdf in einem Ordner zu speichern? Danke für kurze Rückinformation.
Hallo Andreas, ja, das kannst du machen. Wie du PDFs erstellen kannst, findest du hier: th-cam.com/video/GSKiJClHiA8/w-d-xo.html
LG Kai
Hallo Kai, geniales Video. Ich habe mit VBA noch nicht viel am Hut aber es hat funktioniert. Eine Frage hätte ich noch: Ich habe im Outlook mehrere E-Mail Kontos. Ich möchte die E-Mail, die ich via EXCEL versende mit einem ganz bestimmten Konto versenden. Wie kann ich das angeben? Herzlichen Dank und Grüsse aus der Schweiz Koni
Hier sollte dir mein Video zum Thema Outlook Mail weiterhelfen: th-cam.com/video/Wl-2lMygf4o/w-d-xo.html
Siehe Zeitstempel 5:48
Hallo, danke für das Video ! Das hat mich jetzt ein ganzes Stück weitergebracht.
Wie würde es denn aussehen, wenn man in einer Mappe einige Berechnungen durchführt, die Ergebnisse innerhalb dieser Mappe in eine Tabelle einfügt und die Tabelle anschließende per Outlook an eine Mail_Liste verteilen möchte ?
Hallo Kai
Kann es sein , dass das VBA um die Datei anzuhängen in der Excel Version 2021 nicht funktioniert? Mir funktioniert der VBA Code nicht so wie im Video. Wenn ich diese Zeile lösche, dann wird einfach das PDF erstellt und das Mail geöffnet, aber ohne Anhang.
Hallo Kai,
ist es möglich das alles per Gmail abzuwickeln? Wir arbeiten zwar mit Excel aber nicht mit Outlook.
Hallo, schau dir gerne folgendes Video an, um den Mailversand mit anderen Programmen umzusetzen: th-cam.com/video/5G5QR9Anp8M/w-d-xo.html&ab_channel=KaiWeissmann LG Kai
Hallo Kai, super erklärt !!! Bin echt ein Fan von deinen Videos ! Vielleicht kannst du auch mal ein Video zu meinem aktuellen Problem drehen: Ich habe in Excel einen Report mit einigen KPI's erstellt. Diese Excel Datei aktualisiere ich jeden Morgen und kopiere dann die KPIs manuell aus der Excel Datei in eine Mail (In einen Standard Text in eine Mail) und verschicke diese an die Empfänger. Der Text ist immer der selbe. Das rauskopieren der Kennzahlen und diese in eine Mail zu packen, nimmt viel Zeit in Anspruch. Kann man das nicht automatisieren ? Dass die Werte bestimmter Zellen an eine bestimmte Stelle eines Textes in einer Mail eingefügt und die mail dann jeden morgen um 9 Uhr automatisch verschickt wird? Das wäre sooo genial, wenn das gehen würde. LG aus Berlin.
Hallo Kai,
Super ich habe nur noch ein kleines Problem. Wenn ich denn Anhang (Bild) ohne Anhang direkt ins Mail am Schluss einfügen möchte, wie geht das? ich finde keine Lösung um ein Logo oder Signatur als Bild einzufügen, so dass der Empfänger es direkt sieht. Evtl. hast du eine Lösung
Hallo Kai,
vielen Dank für dein Video. Ich habe eine Frage. Gibt es eine Möglichkeit als Anhang eine manuell ausgewählte Datei anzuhängen? Ich stelle es mir so vor, dass das Makro, wie du gezeigt hast, die Mail erstellt, die Empfänger und Text einfügt und dann ein Dialogfenster oder Dateifenster aufgeht (mit vordefinierten Ordner) aber ich dann selbst auswählen kann, welche Datei genau an die Mail angehängt wird. Wenn ich auf Bestätigen drücke soll das Makro weiterlaufen.
Ist so etwas möglich? Danke für deine Hilfe!
Grüße
Hallo, freut mich, dass dir das Video gefällt.
Was du beschreibst, kannst du auf jeden Fall umsetzen. Wie du eine Datei auswählen kannst, zeige ich bspw. in diesem Video: studio.th-cam.com/users/videoMl-B5Ikz5g8/edit
LG Kai
Hallo lieber Kai,
das Video ist super und hat mir sehr weitergeholfen :)
Ich habe allerdings noch eine Frage:
Wie schaffe ich es, dass die Mail das Excel Arbeitsblatt als Anhang enthält? Die Datei die das Makro enthält führt den Befehl aus, dass eine Mail via Outlook verschickt werden so, gleichzeitig ist sie aber auch der Anhang der Mail.
Es geht um 2 Tabellenblätter die als Anhang enthalten sein sollen.
Ich weiß, dass ist ein wenig komplizierter. Weil das Excel geschlossen sein muss, um es an eine Mail zu hängen.
Vielen lieben Dank für deine Hilfe.
Viele Grüße aus München
Aline
Hey Aline!
Es freut mich, dass dir das Video geholfen hat.
Ich würde spontan vorschlagen, per VBA eine Kopie der aktuellen Datei abzuspeichern und diese dann als Anhang zu versenden.
Hoffe das hilft dir.
Lg, Kai
Danke Kai!
Sehr gerne!
Hi,
cooles Video.
Eine Frage:
Kann man im HTML Body die Schrift für Outlook verändern?
Damit die Schriftart in Outlook Arial ist ?
Vielen Dank für die Hilfe.
Hey jue24sim!
Danke für dein Feedback.
Versuche es mal hiermit
HTMLText = "Dein Text"
Lg, Kai
@@KaiWeissmann Vielen Dank super
Hallo Kai,
Ich möchte aus einer Excell Termine ins Outlook bringen und diese gleich a die gewünschten Teilnehmer versenden. Leider habe ich kein VBA auf dem Rechner (geschlossenes Dienstsystem).
Die letzte Jahre habe ich immer die Termine aus der Excell ins Outlook im-/exportiert und die Empfänger händisch eingefügt. Das ist aber mehr als aufwendig. Kannst Du helfen?
Gruß Thomas
Danke! Das Video hat mir sehr geholfen! Abo is da :)
Vielen Dank.
Es freut mich, dass dir das Video geholfen hat.
Hallo Kai, das war ein super Video! Vielen Dank für die Erklärungen! Ich hätte dazu nur eine Frage. Ich habe z.B. mehre Signaturen. Gibt es mit .htmlbody auch eine Möglichkeit eine andere Signatur zu auswählen? VG Nico
Hi, die Videos machst du echt super. Macht Spaß dich die Videos anzusehen. Kannst du vielleicht auch ein Video machen, wie man aus Excel ein E-Mail über IBM Notes senden kann? Mit freundlichen Grüßen
Freut mich, dass dir das Video gefällt. Ich nehme das Thema mal auf. Falls das noch mehr Leute interessiert, mache ich dazu ein Video. LG Kai
Hallo! super erklärt, meine frage ich habe eine liste mit Vereinsmitglieder wo auch die Geburtstage mit erfasst ist. Wie kann ich an hat des Datum mich über Qutlook an ein Gebrutstag erinnern lassen, so das einer im Vorstand ein E-Mail bekommt. Weil man schau ja nicht jeden tag in die Excel Tabelle.
Hallo Sven, danke für dein Feedback! Erstmal könntest du ein Makro bauen, das eine Mail an den Vorstand verschickt mit allen offenen Geburtstagen. Das könntest du dann täglich einmal ablaufen lassen. In diesem Video zeige ich, wie man Makros planen kann: www.vbatrainer.de/makro-planen/
Ich hoffe das hilft dir weiter :)
LG Kai
Thank you for the video! How to send an email to a distribution list which is contained in outlook subfolder?
Hi, coolen Kanal hast du ! Habe die Funktion schon seit längerem in einige Reports eingebaut. Was mir aber immer noch nicht gelungen ist, meine Signatur bzw. desjenigen der die Datei versendet, an den Text der Mail anzuhängen. Nicht so wie du es gezeigt hast, sondern die bereits in Outlook angelegten und sonst verwendeten Signaturen. Ist das auch möglich ? Die sollte man doch sicher ansprechen können.
Hi Jochen,
vielen Dank für dein nettes Feedback!
Mit der Methode im Video wird die in Outlook gewählte Standard-Signatur eingefügt. In meinem Fall war das "Das ist eine Testsignatur!".
Falls du eine andere Signatur auswählen möchtest, kannst du durch den Ordner "%APPDATA%\Microsoft\Signatures" loopen und die gewünschte Signatur auslesen. In folgendem Artikel wird das gut erklärt: www.rondebruin.nl/win/s1/outlook/signature.htm. Ich habe es gerade ausprobiert und hatte so Zugriff auf meine Signaturen.
Ich hoffe das hilft dir weiter :) Falls doch noch Fragen offen sind, schreib mir gerne hier oder per Mail (mail@vbatrainer.de).
Viele Grüße
Kai
@@KaiWeissmann ah sehr cool :) dann probiere ich das erstmal so aus. Danke !
Super, mach das. Schreib mir auch gerne nochmal, falls alles geklappt hat :)
Danke!
Vielen Dank für deinen Unterstützung!
Hallo. Wie kann Man automatisch emails versenden wenn eine zellen wert kleiner als 1000 wird zb.?
Danke in Voraus
Beste grüsse
Csaba
Hallo Csaba, dafür nutzt du am besten das Worksheet-Change-Event und prüft, ob die Zelle kleiner als 1000 ist. LG Kai
Deine Videos sind der Wahnsinn! Eine super Hilfe um sich als Anfänger herantasten zu können. Mich würde noch interessieren, wie man Mails senden kann, ohne Outlook nutzen zu müssen (ein anderes Mail-Programm nutzbar?). Und funktioniert der Versand nur, wenn man speziell die Microsoft Outlook Objekt-Library auswählt? (in Verbindung mit der Nutzung eines anderen Mail-Programms?). VG Andy
Hallo Andy, freut mich, dass dir meine Videos gefallen! Welches Mail-Programm würdest du denn stattdessen gerne nutzen? LG Kai
@@KaiWeissmann z.B. Thunderbird.
Hallo Andy, ich habe heute ein Video auf dein Anliegen hin erstellt.
th-cam.com/video/5G5QR9Anp8M/w-d-xo.html
LG Kai
Hallo Kai, besten Dank für die Erklärung! Ich würde gerne einen variablen Dateipfad für den Anhang verwenden, der aus einer Zelle in der Arbeitsmappe ausgelesen werden soll - hättest Du hierfür eine Lösung? LG
Hallo, ab 5:23 zeige ich, wie du Daten aus der Arbeitsmappe auslesen kannst. Das kannst du auch für den Dateipfad nutzen. LG Kai
Sollte ein Anwender den Verweis auf die Outlook Object Library nicht gesetzt haben, funktioniert der Code nicht. Gibt es auch eine Codemöglichkeit ohne dass ein Haken auf den Verweis gesetzt ist? Falls ja, könnest Du dafür den Code aufzeigen?
Hallo Jürgen, ja, das ist tatsächlich möglich. Wir haben hier early binding verwendet. Das müssten wir auf late binding verändern, damit wir den Bibliotheksbezug nicht mehr benötigen. Mehr Infos dazu findest du hier: docs.microsoft.com/de-de/previous-versions/office/troubleshoot/office-developer/binding-type-available-to-automation-clients
LG Kai
@@KaiWeissmann Super, vielen Dank, habs hinbekommen.
Freut mich sehr! Habe dazu jetzt auch ein Video erstellt: th-cam.com/video/Wl-2lMygf4o/w-d-xo.html
LG Kai
Das Video hat mir auch sehr geholfen. Habe damit eben 20 Mails mit personalisierten Zugangsdaten sowie Anhang verschickt. 🙂
Eine Frage noch: Wie funktioniert der Befehl, um die Absenderadresse zu ändern? Bzw. das E-Mailkonto, mit dem ich die Mails verschicke? Ich habe auf der Arbeit mehrere Konten zur Auswahl, ein persönliches und mehrere Sammelkonten auf die verschiedene Kollegen Zugriff haben. Eine Googlesuche und ein paar Versuche haben leider nicht zum Ziel geführt... 😞
Hey Martin!
Freut mich, dass es grundsätzlich funktioniert.
Das Thema Absenderadresse / Absenderkonto nehme ich mal in die Ideensammlung für zukünftige Videos auf.
Lg, Kai
Hallo Martin, ich habe zu deiner Anfrage diese Woche ein Video veröffentlicht: th-cam.com/video/Wl-2lMygf4o/w-d-xo.html
LG Kai
@@KaiWeissmann Hallo Kai, das ist phantastisch! Ich danke dir vielmals! :-)
Servus Kai,
finde deine Videos verständlich und leicht nachvollziehbar. Habe allerdings bei meinem Projekt jetzt einen Stillstand. Nachdem ich dein Video mit "Dateien aus Ordner auslesen" nachvollzogen habe, möchte ich diese Dateien per Email verschicken. Also 10 Dateien an 10 verschiedene Adressaten, Datei 1 soll an Adressat 1, Datei 2 soll an Adressat 2, u.s.w. geschickt werden. Zum Schluss sollte nachdem das Makro ausgeführt wird. 10 Dateien oder je nachdem wieviel Dateien sich in dem Ordner befindet , mit einmal verschickt werden. Vielleicht kannst du mir ja auf die Sprünge helfen, oder vielleicht ein Video machen ;-) Danke
Gruß Jürgen
Hallo Kai, gute Tips für versenden von Daten aus Ecxel mittels Outlook. Habe nur das Problem, dass ich gern einen anderen meiner E-Mail Auccounts und nicht den standartmäßigen Outlook-Account nutzen. Hast du 'ne Idee ?
Hallo Robbi, freut mich, dass es dir gefällt. Um das Konto zu verändern, kannst du .SentOnBehalfOfName = "DEINE MAILADRESSE" schreiben. Wichtig ist, dass das vor .Display gemacht wird. LG Kai
Hallo Michael, ich habe zu deiner Anfrage diese Woche ein Video veröffentlicht: th-cam.com/video/Wl-2lMygf4o/w-d-xo.html
LG Kai
Moin, sehr gutes Video, es hat mir sehr geholfen! Alles prima erklärt, sodass man es versteht und gut mitkommt. :)
Gibt es dort auch eine Möglichkeit, dass ich die aktuelle Datei, in der ich das Makro ausführe als E-Mail Anhang mit versenden kann?
LG
Hallo Chris, sorry für die späte Rückmeldung. Das kannst du auf jeden Fall machen. Schau mal in den Kommentar von Fabian Frammersberger. Der hat dazu auch schon den Code gepostet. LG Kai
Hallo Kai, das ist sehr hilfreich deine Präsentation aber wie bekomm ich den die Formel hin das er nach jeder Range in eine neu Zeile springt. ich hab das mit vbCrLF versucht klappt leider nicht.
strBody = ActiveSheet.Range("X1") & vbCrLf & vbCrLf & vbCrLf & ActiveSheet.Range("X2") & vbCrLf & vbCrLf & vbCrLf & ActiveSheet.Range("X3") & vbCrLf & vbCrLf & vbCrLf & ActiveSheet.Range("H6") & vbCrLf & ActiveSheet.Range("X4") .Value
kennst du das Problem ? Danke für deine Hilfe
Hallo Michael, danke für deinen Kommentar. Das kannst du mit "" im HTMLBody machen. LG Kai :)
@@KaiWeissmann Danke hat wunderbar geklappt
Hallo Kai, nachdem jetzt alles so funktioniert, wie du es einfach erklärt hast, bleibt bei mir noch eine Frage: Mein Outlook- Account hat 3 eMail- Adressen von mir mir. Wie bringe ich der VBA bei nicht immer den ersten Eintrag zu nehmen?
das Problem habe ich auch. Wie löst man das auf ?
Hi Kai
Leider Funktioniert es bei mir nicht. Bekomme immer dies angezeigt "Fehler beim Kompilieren.:
Ein benutzerdefinierter Typ ist nicht definiert."
Ich möchte eigentlich eine Mappe schicken und nicht die ganze datei.
Hallo Kai,
ich bin erst vor kurzem auf deinen Kanal aufmerksam geworden. Wirklich super was du da machst. Hab dank deiner Zahlreichen Videos schon einige Makros bei mir im Office Optimiert.
Sind nämlich alles aufgenommene...
Dieses Video interessiert mich auch sehr, habe da auch zwei Makros die aber noch nicht optimiert sind.
Ich möchte gerne in den HTMLBody neben dem Text auch einen Zellbereich inkl. Formatierungen wie Schrift, Farbe, Größe, Rahmen usw. mit einfügen nur leider komme ich nicht drauf wie.
.HTMLBody = "Dies ist ein Beispieltext" & Tabelle1.Range("B2:G28")
Irgendwie so hatte ich es mir vorgestellt funktioniert aber (selbstverständlich?!) nicht.
Könntest du mir da einen Tipp geben?
Viele Grüße,
Laurentius
Hallo, super gute Videos hier. Dieses Video hat mir echt weitergeholfen. Nur habe ich jetzt ein Problem. Die Excel die ich erstellt habe mit dem Code für den E-Mailversand funktioniert nur auf meinem Rechner wen ich diese an jemand anderes Sende funktioniert der Code nicht das die Verweise nicht aktiviert sind. Gibt es eine Möglichkeit diese auch per VBA zu aktivieren?
Hallo Michael, freut mich, dass dir meine Videos gefallen!
Ja, das ist tatsächlich möglich. Wir haben hier early binding verwendet. Das müssten wir auf late binding verändern, damit wir den Bibliotheksbezug nicht mehr benötigen. Mehr Infos dazu findest du hier: docs.microsoft.com/de-de/previous-versions/office/troubleshoot/office-developer/binding-type-available-to-automation-clients
LG Kai
@@KaiWeissmann Danke für die schnelle Antwort. Nur mein Umgestellter Code funktioniert immer noch nicht. Habe den Code mal per mail Ihnen gesendet. Würde mich über eine Antwort bzw. Korrektur freuen. Danke
Hallo Michael, ich habe zu deiner Anfrage diese Woche ein Video veröffentlicht: th-cam.com/video/Wl-2lMygf4o/w-d-xo.html
LG Kai
Cooles Video. Hat schon mal sehr geholfen. Eine Frage noch: In meiner Excel-Datei sind auch Formen enthalten, wie kann ich die denn in die Mail rüber kopieren?
Hey, freut mich, dass dir das Video weitergeholfen hat!
Auf Formeln in Zellen kannst du so zugreifen:
Range("A1").Formula
Ich hoffe, damit kommst du an dein Ziel :) LG Kai
@@KaiWeissmann Ahhh... ich meinte tatsächlich eine Form, also so ein Dreieck/Viereck, das nicht direkt einer einzelnen Zelle zugeordnet ist. Solang ich den Bereich markier, wird das auch ausgewählt, über einzelne Zellen komm ich da leider nicht ran.
@@massion77 mein Fehler...hatte nicht genau gelesen. Da Mails in HTML geschrieben sind, haben wir da - soweit ich weiß - keine Möglichkeit Rahmen und Objekte einzufügen. Du kannst den Text lediglich mit den HTML-Möglichkeiten hervorherben. LG Kai
Super Videos, kannst du ein Video machen wie man mehrere oder einzelne kopierte zellen in den Body mit und ohne formatierung einfügt.
Copie&Paste
Hey Saraze, vielen Dank für das Feedback.
Den Wert der Zelle "N1" auf dem Tabellenblatt "Tabelle1" kannst du in den Body einfügen mit
.HTMLBody = "Dies ist ein Beispieltext" & Tabelle1.Range("N1").Value & .HTMLBody
Ich hoffe das hilft dir weiter :)
LG Kai
@@KaiWeissmann Hallo Kai, super Video an der Stelle - weiter so! Ich muss mal - bei der Frage oben, nochmal nachfragen. Es geht hierbei, dass ich in die Mail ein Ausschnitt aus der Pivot (ganze Pivot ist für mich auch okay) in den E-Mail Body packen will. Ich krieg das leider nicht mit dem Code von oben hin... Kannst du mir da helfen?
Sub Mail_erstellen()
Dim oAp As New Outlook.Application
Dim oMail As Outlook.MailItem
Set oMail = oApp
With oMail
.BodyFormat = olFormatHTML
.Display
.To = Tabelle6.Range("f1")
.Subject = "Change"
.HTMLBody = "Dies ist ein Beispieltext" & Tabelle6.Range("A4:E6").Value & .HTMLBody
.Save
End With
End Sub
Vielen Dank an der Stelle
Moin Kai, sehr gutes Video! Ich habe jedoch ein Problem: ich habe eine liste an kontakten welche jeweils eine Mail mit einem speziellen Anhang bekommen sollen. Die Email sollen vorbereitet aber nicht versandt werden (.Display) . Das klappt beim ersten mal super, beim zweiten, drittem xten mal durchlaufen der Loop wird jedoch keine neue Mail erzeugt, sondern in der bestehenden Mail der Empfänger überschrieben. Das führt am ende dazu, dass statt 20 MA bekommen eine mail mit jeweils einem Anhang nur der letzte MA der Liste eine Mail bekommt aber mit allen 20 Anhängen. Was mache ich da falsch? Danke für die Hilfe im Voraus
Moin, danke für dein Feedback :) Ich habe den Code mal umgeschrieben, um zwei Mails zu erzeugen (geht natürlich auch mit 20 dann). Wichtig ist vielleicht, dass das .Display lediglich bedeutet, dass die Mail angezeigt wird. Erzeugt wird die Mail mit Set oMail = oApp.CreateItem(olMailItem) und gespeichert mit .Save.
Hier der Code:
Sub Mail_erstellen()
Dim oApp As New Outlook.Application
Dim oMail As Outlook.MailItem
Dim i As Long
For i = 1 To 2
Set oMail = oApp.CreateItem(olMailItem)
With oMail
.BodyFormat = olFormatHTML
If i = 1 Then
.To = "kaiweissmann@outlook.de;" & Tabelle1.Range("N1").Value
Else
.To = "MM.@mail.de"
End If
.CC = "mail@vbatrainer.de"
.BCC = "mail@vbatrainer.de"
.Subject = "Beispiel-Mail"
.HTMLBody = "Dies ist ein Beispieltext" & .HTMLBody
.Attachments.Add "C:\Users\kaiwe\Desktop\Testdatei.png"
.Save
End With
Next i
End Sub
Ich hoffe das hilft dir weiter :) Falls du noch Fragen hast, schreib mir gerne.
LG Kai
Hallo Kai, richtig gutes Video, bin echt froh, dass es dich gibt. Ich hätte aber noch eine offene Frage. Wie kann ich den Inhalt einer bestimmten Zelle als Betreff in der E-Mail, die ich verschcken möchte, einfügen?
Das sollte funktionieren mit .subject = Zelle.Value
Sehr fettes Video!
Frage wie bekomme ich eine User bezogene Signatur ( jeder kollege hat eine Andere) mit einbezogen?
Freut mich, dass es dir gefällt :) Die Signatur wird automatisch aus dem derzeit angemeldeten Nutzerprofil in Outlook genommen. D.h. wenn ein Kollege dein Makro nutzt, dann erscheint dort automatisch seine Signatur.
LG Kai
@@KaiWeissmann ja ok danke aber ich weiß leider die dazugehörigen Befehle nicht die ich in der vba Oberfläche eingeben muss um das zu aktivieren . Kannst du da bitte nochmal unterstützen?
Fehler erkannt , es muss zuvor die Signatur noch einmal im Outlook ,auch wenn diese schon besteht ,under Optionen/ E-mail / Signaturen gespeichert werden erst dann wurde diese mitgenommen. So wars es bei mir. Danke nochmal für das Video
@@dreranft1 freut mich, dass du es lösen konntest :) LG Kai
Hallo Kai, wie immer super gut erklärt und alles lässt sich gut nachvollziehen. Eine Frage habe ich:
Wie kann ich eine Signatur auswählen (in der Firma haben haben wir unterschiedliche Signaturen)?
Hey grüß dich ich würde gerne eine Signatur mit einem Logo einfügen wie soll ich ich es codieren am besten alles untereinander also Name
Abteilung
Firmenlabel
Firmenadresse
Ich habe alles untereinander mit fehlt nur noch das Logo
Hallo Kai, erstens super Video. Wäre es auch möglich nur ein Tabellenblatt als Anhang zu verschicken?
Hallo, freut mich, dass dir das Video gefällt!
Du könntest eine neue Excel-Datei mit dem relevanten Tabellenblatt erstellen, abspeichern und diese Datei dann als Anhang versenden.
LG Kai
Hallo Kai. Ist es möglich anstelle set oMail=oApp.CreateItem.... direkt auf eine "vorgefertigte" Mail aus den "Entwürfen" im Outlook zuzugreifen?
Hallo Kai, tolles Thema! Unerklärlicher Weise ist MS Outlook nicht in der Verweisliste von VBA, obwohl es mein Mailprogramm ist.
Hallo Kai, habe den Fehler gefunden. Outlook war falsch installiert und im Office nicht bekannt. Fehler behoben , dein Beispiel funktioniert einwandfrei - TOLL!
Hallo, super, dass du das Problem direkt beheben konntest. Ich wünsche dir weiterhin alles Gute bei deinen Projekten! LG Kai
Prima Video, danke. FAST genau das, was ich gerade suche, aber vielleicht hast du ja einen Tipp für mich:
Und zwar würde ich gerne eine bereits bestehende Outlook-Vorlagendatei aus und mit div. Werten aus Excel starten. Die übergebenen Werte habe ich momentan per "Inhalte einfügen - unformatierten Text" eingefügt, das ist aber nicht ganz so das Wahre :-/.
VG Rob
Hey Rob, vielen Dank für dein Feedback :)
Vorlagen kannst du öffnen, indem du statt
Set oMail=... [aus dem Video]
schreibst
Set oMail = oApp.CreateItemFromTemplate("C:\Users\kaiwe\AppData\Roaming\Microsoft\Templates\Vorlage.oft")
Dabei musst du den Pfad in den Pfad abändern, den du auf deinem PC gesetzt hast. Standardmäßig musst du dadurch nur den Benutzername (kaiwe) durch deinen Benutzernamen ersetzen.
Anschließend brauchst du in deiner Vorlagen-Mail Strings, die du mit Excel-Daten ersetzt. Dazu verwende ich bspw.
#Excel-Daten1
Du suchst und ersetzt diese Strings dann im HTMLBody mit der InStr-Funktion und ersetzt. Das zeige ich in diesem Video: www.vbatrainer.de/string-funktionen/
Alternativ kannst du statt der Vorlage die komplette Mail auch im VBA-Code definieren.
Ich hoffe eine der Lösungswege hilft dir weiter. Schreib mir gerne nochmal, wie es bei dir lief.
LG Kai
@@KaiWeissmann Super, herzlichen Dank, werde ich mal ausprobieren :-)
Mega Kai!
Danke dir!
wenn zelle rot wird (wenn der bestand 0 wird) oder (kleiner als min bestand ) dann eine email rausschicken mit der id; beschreibung; stückzahl; hersteller usw ???
an 3verdchiedene mailadressen
Hallo, nehme ich als Videoidee auf. LG Kai
Hallo, ich habe deine Videoidee hier umgesetzt: th-cam.com/video/HsOlfO97hb4/w-d-xo.html
LG Kai
sehr gut!
doch habe ich übersehen wie man das absendekonto für die mail setzt ?
Hallo Norbert, freut mich, dass es dir gefällt. In diesem Video wird die Mail vom Standardkonto versendet. Um das Konto zu verändern, kannst du
.SentOnBehalfOfName = "DEINE MAILADRESSE"
schreiben. Wichtig ist, dass das vor .Display gemacht wird.
LG Kai
@@KaiWeissmann danke für die Info,
doch irgendetwas hat MS gemacht das dieser eintrag wohl nicht so mehr funktioniert ( wenigstens hier ) ... ....
zum ziel führt
.SendUsingAccount = .Session.Accounts(2) 'absenderkonto aus kontenliste festlegen
ist natürlich anstrengend/stress dann noch die nummer zu ermitteln ( auch wenn es nur eine schleife ist )
happy hacking
Hallo Norbert, danke für deinen Input. Ich habe zu deiner Anfrage diese Woche ein Video veröffentlicht: th-cam.com/video/Wl-2lMygf4o/w-d-xo.html
LG Kai
Hallo Kai, vielen Dank für das informative Video! Ich finde keine Video darüber, wie ich es schaffe, Pdf-Dateien aus mehreren Pfaden in einer Datei zusammenzuführen. Konkret habe ich eine Excel aus Pfad A mit der Nr. 00001_Datei_Dokument. Ich möchte nun, dass mein Makro die ersten fünf Ziffern aus der Datei in Pfad A erkennt und diese in Pfad B und Pfad C sucht, findet, in einer PDF Datei zusammenführt und in Ordner D speichert. Es gibt aber kein Tutorial, der mir das eben beibringen könnte. Vielleicht wäre das eine Idee fürs nächste Video? :-D Freue mich auf kommende Videos von dir!
Hallo Vincenzo, danke für den Vorschlag! Ich schreibe es mal auf, allerdings ist die Videoliste schon relativ lang :P
Wünsche dir viel Erfolg bei deinem Projekt! LG Kai
Hallo Kai, vielen Dank für das Video. Hat mir sehr geholfen. Ich habe eine frage zu dem VBA und dem Empfänger. Was muss ich eintragen, damit mehrere Empfänger im BCC aus mehreren Zeilen einer Spalte übernommen werden. Meine Idee war: .BCC = "Gesamt.Range("$D$2:$D$9").Value" aber da wird Angezeigt: Fehler beim Kompilieren: Syntaxfehler. Danke schon einmal!
Hallo Benjamin, lies am besten die Zellen einzeln aus und verbinde sie:
.BCC = Range("D2").Value & ";" & Range("D3").Value
Hoffe das klappt bei dir :)
LG Kai
@@KaiWeissmann Danke für die schnelle Antwort. Klappt der Code auch, in einer intelligenten Tabelle? Da kommen ja immer mehr Zellen dazu. Das müsste ich ja dann jedes mal anpassen oder? Wie würde der Code da ausshen bzw wie mit der Verbindung zu einer speziellen Tabelle eines Blattes?
Liebe Grüße
Hallo Kai, tolles Video. Hat mir als VBA Laien echt geholfen. Eine Frage, wie kann ich den Text im Body formatieren? Genaugenommen suche ich die Tab-Funktion aus Word um einen Abstand zwischen zwei Textteilen herzustellen. Fettschrift, unterstreichen und Umbrüche hast du ja bereits erwähnt. Gibt es ein Verzeichnis für diese Formatierungen?
Hallo Andreas, es freut mich sehr, dass dir das Video geholfen hat :)
Ein Tab kannst du mit " " einfügen. D.h. der Code würde dann so aussehen:
.HTMLBody = "Dies ist ein Beispieltext" & .HTMLBody
Ein Verzeichnis kenne ich dafür leider nicht. Ich google die gewollte Formatierung dann immer mit dem Zusatz "HTML".
Ich hoffe, das hilft dir weiter. Falls nicht, schreib einfach nochmal :)
LG Kai
Tolle Erklärungen. Ich arbeite mich gerade in VBA ein. Mein Programm funktioniert auch. Doch ich suche mich im Netz dusselig nach einer Funktion. Ich nutze eine Liste und möchte dem Programm folgendes sagen: Bitte nutze für deine E-Mail-Adresse Spalte 2 der Zeile, in der du gerade bist. Bis dato kann ich nur sagen, dass sich die Mail-Adresse in der Zelle B2, B3... befindet. Kurz: Sobald die Zeile mit Kontaktdaten und Co. gefüllt ist, möchte ich am Ende der Zeile auf Senden klicken und die fertige Mail sehen und abschicken können. Mit festen Zellen klappt das auch schon. Nur hier stecke ich fest! Daher hoffe ich auf Hilfe. Danke!!!
Hallo Fabian,
Die aktive Zeile kannst du mit ActiveCell.Row herausfinden.
Das würde ich mir in ene Variable speichern z.B. aktuelleZeile = ActiveCell.Row
Und am gewünschten Tabellenblatt kannst du dann den Wert folgendermaßen auslesen aus der 2. Spalte (B)
Mailadresse = Tabelle1.Cells(aktuelleZeile, 2).Value
Mit der Mailitem.Display Methode, kannst du dir die Mail anzeigen lassen, um noch Anpassungen durchführen zu können.
Hoffe das hilft dir.
Lg, Kai
Hi Kai,
könntest du ein Video machen, wie man bestimmte Bereiche aus einem Excel-Tabellenblatt bspw. als PDF exportieren kann und diese Datei wiederum wie hier in dem Video gezeigt (ohne Umweg über den Desktop?) per .Attachments.Add hinzufügen kann? Noch besser wäre natürlich wenn das mit gleich mehreren Anhängen (also Verschiedene Informationen von mehreren Tabellenblättern in einer Excel-Datei) möglich wäre.
Danke dir und Grüße!
Hey Jonathan!
Zur PDF Erstellung habe ich bereits ein Video gemacht: th-cam.com/video/GSKiJClHiA8/w-d-xo.html
Hoffe das hilft dir.
Lg, Kai
@@KaiWeissmann
Hey,
ja es hat geholfen. Es ist zwar nicht exakt dass was ich brauche, habe mir aber etwas zusammengebastelt indem ich das PDF erstelle, auf den Desktop speichere, in den Anhang haue und danach gleich wieder lösche. So kann ich bestimmte Informationen aus einer Excel extrahieren und direkt per Mail versenden.
Danke dir 👍
Hallo Kai
Bei mir erscheint die Meldung Laufzeitfehler 429. Beim debuggen verweist er auf den Eintrag "Set oMail = oApp.CreateItem(olMailItem)
Danke für deine Hilfe.
Gruss Marcel
Hallo Kai,
gibt es eine Möglichkeit das aktive Fenster, quasi die neue Nachricht direkt zu schließen nach .save?
mit OApp.quit schließt es mir Outlook komplett...
Grüße Martin
Hallo Martin, wenn du die neue Nachricht nicht anzeigen willst, dann kannst du .Display weglassen. LG Kai
@@KaiWeissmann
Danke. Hat funktioniert