Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Mailerstellung mit informationen aus markierten Zellen

Forumthread: VBA Mailerstellung mit informationen aus markierten Zellen

VBA Mailerstellung mit informationen aus markierten Zellen
11.06.2024 14:17:35
RicciJessen
Hallo zusammen,

ich habe eine Tabelle mit folgenden Spalten:

Spalte A = Erstellungsdatum
Spalte B = Lieferantenname
Spalte C = Bestellnummer
Spalte D = Informationstext

Ich möchte gerne einen VBA erstellen bei der die Markierte Zelle in einer Email verfasst wird.

z.B. Ist die Zeile 10 markiert, sollen die Informationen aus Spalte A bis D in den Bodytext
Zusätzlich soll in den Betreff Klärfall & Zelle C10 eingefügt werden.

Hat jemand dazu einen VBA?


Gruß
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Mailerstellung mit informationen aus markierten Zellen
11.06.2024 15:29:40
JoWE
Hallo,

versuchs mal so: 
Sub newMail()

  Dim aktiveZeile As Long

  aktiveZeile = ActiveCell.Row

  Set MyOutApp = CreateObject("Outlook.Application")

  Set MyMessage = MyOutApp.CreateItem(0)

  With MyMessage

  .To = "DeinEmpfänge@gmx.net"

  .Subject = "Klärfall " & Range("C" & aktiveZeile)

  .body = "Erstellungsdatum: " & Range("A" & aktiveZeile) & Chr(13) & _

          "Lieferantenname: " & Range("B" & aktiveZeile) & Chr(13) & _

          "Erstellungsdatum: " & Range("C" & aktiveZeile) & Chr(13) & _

          "Bestellnummer: " & Range("D" & aktiveZeile)

  .Display

  '.Send 'Hier wird die Mail gesendet

  End With

  Set MyOutApp = Nothing

  Set MyMessage = Nothing

End Sub

Gruß
Jochen
Anzeige
;

Forumthreads zu verwandten Themen

E-Mailversand mit Anhang
Timo

Hallo ich benutze folgenden Code um mir wenn in Spalte C ein Ja steht, eine Mail an die Mailadresse aus Spalte A zu senden! Ich hab alles in einer Userform! Wo sich auch die Listbox1 befindet wo ich den oder die Dateipfad(e) für den Anhang stehen habe!
Wenn ich meine Schleife jetzt durchlau...
11.11.2008 15:07:00
Thread-ID: 1023575
2 Beiträge
Anzeige
email mit Betreff versenden
Tobiax

Hallo!
Ich würde gerne auf Knopfdruck meine gesamte Exceldatei abc.xls versenden.
In der Betreff Zeile soll aus dem Blatt "Tabellen" die Zelle E2 verwedet werden
Die email Adressen sind Spalte A des Blattes "Verteiler" eingetragen.
Ich würde aber gerne noch einen Text selber sch...
09.03.2009 13:48:59
Thread-ID: 1058146
13 Beiträge
e-Mail-Versand mit PDF-Anhang
kutzmutz

Hallo nochmal,
ich hab noch ein Problem mit dem eMail-Versand.
Ich generiere mir eine Liste. Diese will ich als PDF-Anhang in einer e-Mail verschicken. Der Macro-Rekoder hat mir dazu folgendes geliefert:
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\...
06.06.2009 16:06:45
Thread-ID: 1079612
2 Beiträge
Serien-Mail mit Anhang
Boulbadaoui

Hallo,
ich versuche mit dem folgenden Makros, einen Serienmail zu gestalten, leider bekomme ich immer die Zeitlauffehlermeldung 7225!
_____________________________________________________________
Sub testmail() Dim i, empfänger, anlagen, titel, mailtext, An As Variant Dim Entwurf...
26.06.2009 14:47:56
Thread-ID: 1084609
2 Beiträge
Anzeige
Serien-Mail mit Anhang
Boulbadaoui

Hallo,
ich versuche mit dem folgenden Makros, einen Serienmail zu gestalten, leider bekomme ich immer die Zeitlauffehlermeldung 7225!
_____________________________________________________________
Sub testmail() Dim i, empfänger, anlagen, titel, mailtext, An As Variant Dim Entwurf...
26.06.2009 14:32:33
Thread-ID: 1084612
7 Beiträge
Anzeige
Email mit Anhang, falls Anhang verfügbar
Thomas

Hallo zusammen,
ich hänge gerade wieder an einer Stelle.
Ich habe ein Makro, welches vollautomatisch täglich Emails aus Excel mit 2 pdf-Dateien im Anhang versendet. Es werden ca. 50 Emails verschickt. Jede Mail an unterschiedliche Empfänger und mit unterschieldlichen pdf - Anhängen. Die...
02.12.2009 08:53:16
Thread-ID: 1121328
3 Beiträge
Anzeige
Email mit Anhang versenden ueber outlook
abu

Hallo Zusammen,
habe folgenden Code gefunden und wuerde den gerne fuer meine Beduerfnisse umstricken. Leider bekomme ich immer eine Fehlermeldung bei dieser Zeile:
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
Wuerde mich ueber hilfe sehr freuen...
16.12.2009 13:28:45
Thread-ID: 1122907
2 Beiträge
Lotus-Notes-Mail mit Anhang aus Excel
Wilfried

Hallo und guten Tag,
folgendes Makro habe ich im Forum gefunden. Es bleibt immer an der Zeile
(Set MailDoc = Maildb.CREATEDOCUMENT) stehen, warum? ... und was muss ich tun, damit der Code mit abgespeichert wird?
Sub SendNotesMail() Dim Maildb As Object Dim MailDbName As String Dim M...
13.01.2010 14:25:25
Thread-ID: 1129487
2 Beiträge
Mail mit Termin als Anhang aus Excel verschicken
Uppe

Hallo Experten,
bisher versende ich ein Arbeitsblatt aus Excel so:
ThisWorkbook.Activate
Worksheets(2).Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope.Item
  .SentOnBehalfOfName = "BSH-IT-OPERATION"
  .To = strEmpfänger<...
13.04.2010 14:30:37
Thread-ID: 1151444
3 Beiträge
Mappe als Email-Anhang versenden!?!
TL

Hallo Wissende,in der Recherche finde ich zwar Stichwörter wie
Mailempfänger,
Mailempfänger (als Anlage)...
Mailer
MailLogoff
MailLogon
MailSession
MailSystem
allerdings sind sinniger Weise keine Informationen hinterlegt :(
Und mein xlWebFinder...
15.05.2002 10:56:08
Thread-ID: 120970
3 Beiträge
Mailversand aus XL97 mit PDF-Datei als Anhang
Martin Beck

Hallo,Umgebung:Excel 97
WinNT 4.0 SP 5
Netscape 4.7Ich habe es geschafft, in der o.g. Umgebung aus Excel heraus per Makro Mails zu versenden, die nicht die gesamte aktive Datei, sondern Teile daraus (ein oder mehrere Blätter, Teile eines Blattes) als Anhang enthalten (XLS-DAtei). Nun möch...
24.05.2002 09:28:11
Thread-ID: 123329
4 Beiträge
Anhang (Bild) mit Outlook mailen
Peter

Hallo zusammen
Ich erstelle im Excel eine Liste von Bildern (Pfad, Dateiname)
Mit einem 2. Makro möchte ich die Dateien dieser Liste einzeln als Anhang mit Outlook vermailen.
(pro Mail eine Datei anhängen) - auch brauche ich "Subject" und "Body".
kann mir jemand weiterhelfen
...
08.06.2011 11:19:30
Thread-ID: 1217689
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige