Live-Forum - Die aktuellen Beiträge
Datum
Titel
30.11.2023 13:45:40
30.11.2023 13:10:14
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Excel Makro zum Email Versand aus Vorlagen-Excel

Excel Makro zum Email Versand aus Vorlagen-Excel
27.09.2019 10:56:42
Harald
Hallo.
Habe mir im Internet einen VBA-Code für ein Makro besorgt welches bewirkt das das aktuelle Tabellenblatt per Outlook Mail als Anhang verschickt wird.
Das funktioniert auch soweit tadellos solange die Datei als Excel mit Makros (xlsm) abgespeichert wird.
Ich brauch das Excel aber als Vorlage (xltm)
Wenn ich das Excel als Vorlage abspeichere und das Makro ausführe kommt eine Fehlermeldung welche ich nicht haben möchte.
Hier der Code:
Sub einzelnes_Blatt_senden()
'** Das aktive Tabellenblatt wird über Outlook versendet
'** Dimensionierung der Variablen
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
'** Pfad für temporäre Zwischenspeicherung angeben
strPfad = "C:\Data" 'entsprechend anpassen
'** Aktuelles aktives Blatt in neue Arbeitsmappe kopieren
strBlatt = ActiveSheet.name
'** Gewähltes Tabellenblatt kopieren
Sheets(strBlatt).Copy
'** Blatt temporär in vorgegebenes Verzeichnis abspeichern
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.name
'** Pfad und Dateiname der neuen Datei zwischenspeichern
strDatei = ActiveWorkbook.FullName
'** Mail erzeugen
With Mail
.to = Worksheets("Einmeldung").Range("B10").Text
.cc = "ideenzirkel@smw.at"
.Subject = "Einmeldung Ideenzirkel" 'Betreff
.BodyFormat = 2 '2 = HTML, 1 = Text
.Attachments.Add strDatei 'Anhang
.Body = "Text" 'Bodytext / Signatur
End With
'** Erzeugte Datei schließen
Workbooks(Dir(strDatei)).Close
'** Erzeugte Datei wieder löschen
Kill (strDatei)
'** E-Mail anzeigen
Mail.Display
End Sub

Fehlermeldung ist folgende:
"Mappe1" mit Bezügen zu nicht gespeicherten Daten speichern?
Vielen Dank schon mal für die Antworten

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

301 Forumthreads zu ähnlichen Themen


Hallo,
kann per Makro eine Email Vorlage die sich unter C:\Vorlagen\vorlagen.orf befindet öffnen? Zusätzlich soll in TO, CC, BCC, BODY, SUBJECT was eingetragen werden.
Vielen Dank!
Viele Grüße
Claus

Hallo,
aus meinem Lotus Notes möchte ich gerne aus Excel heraus mails versenden, was auch funktioniert. Allerdings habe ich noch nicht den Befehl gefunden, dass standardmäßig meine Mail-Vorlage verwendet wird (Vorgaben, Allgemein und Signatur).
2. Frage: Wie kann ich mehrere Adressea...

Hallo Leute,
ich habe ein Problem, das nur temporär (bis gar nicht - *schäm*) mit Excel zu tun hat :
Ich habe in Excel eine Liste mit eMail-Adressen (Spalte A) und Auftragsnummern (Spalte B).
Nun möchte ich per VBA die eMail-Empfänger per Mail anschreiben - ein entsprechendes Makro...

Hallo liebes Forum,
ich habe zu diesem Thema schon einige Beiträge gefunden, bislang aber noch keine Lösung für meinen Standard-Fall. :)
Ich möchte beim Klick auf einen Button in einer Tabelle gerne eine einfache Email erstellen (nicht versenden), die einen bestimmten Inhalt enthalten...

Hallo Leute,
nachdem ich nun endlich den Provider gewechselt bekommen habe, wovon habe die eigentlich Ahnung :( ?, kann ich hier auch endlich antworten bzw. neue Fragen stellen.
Und hier kommt dann auch gleich eine: wie schaffe ich es von Excel aus im Outlook folgendes festzustellen un...

Hallo Leute,
nachdem ich nun endlich den Provider gewechselt bekommen habe, wovon habe die eigentlich Ahnung :( ?, kann ich hier auch endlich antworten bzw. neue Fragen stellen.
Und hier kommt dann auch gleich eine: wie schaffe ich es von Excel aus im Outlook folgendes festzustellen un...
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige