Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

E-Mail manuel nach umwandlung in pdf senden

E-Mail manuel nach umwandlung in pdf senden
24.11.2018 17:45:41
Niko
Hi Leute,
brauche wieder mal Hilfe...seit dem ich hier angefangen habe mich mit VBA auseinander zusetzen, komme ich immer wieder auf verschieden Möglichkeiten die ich versuche umzusetzen. Dies alles verdanke ich eigentlich dieses Forum, durch seine Einfachheit, kann auch ein unwissender in VBA wie ich, in der Geschmackswelt des VBA kommen...oder versuchen zu kommen :-)
Mein Problem, habe ein Datei mit einer Arbeitszeitkarte gemacht (bzw. bin noch dran :-) die mit Button die ausgewählten Blätter sendet, die ich möchte per E-Mail. Den VBA code habe ich im netz gefunden und in meiner Datei eingebaut. Soweit so gut es funktioniert tatenlos.
Möchte aber das es statt automatisch sendet mir die E-Mail erst aufmacht und ich dann auf senden drücken kann, wann immer ich möchte das die E-Mail rausgeht.
Anbei die Datei
https://www.herber.de/bbs/user/125630.xlsm
Bin für jede Hilfe dankbar.
Niko

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: E-Mail manuel nach umwandlung in pdf senden
24.11.2018 21:02:09
onur
statt:

If Send = True Then
.Send
Else
.Display
End If

nur 
.Display

AW: E-Mail manuel nach umwandlung in pdf senden
24.11.2018 21:52:08
Niko
hi onur...großes Danke schön :-)
Jetzt habe ich das Problem dass es zwar die Datei macht, mit den Namen den ich vorgeben habe, doch es fügt die Datei in die E-Mail nicht ein...obwohl ich sehe das diese in den Dokumenten auf C:\Users\Administrator\Documents abgespeichert ist. Es zeigt die E-Mail ohne die pdf Datei mit einzufügen.
Es soll die Datei automatisch in die E-Mail einfügen doch nicht automatisch versenden.
Liegt es das ich Excel 2013 Plus benutze, oder sehe ich den Wald von lauter Bäumen nicht...wie üblich :-)
Danke …nochmals :-)
Anzeige
AW: E-Mail manuel nach umwandlung in pdf senden
24.11.2018 21:59:12
onur
Keine Ahnung, wo du den "Code" her hast, aber man könnte das Ganze mit 20% des Codeaufwandes (von den Kommentaren mal abgesehen) schreiben.
AW: E-Mail manuel nach umwandlung in pdf senden
24.11.2018 22:01:19
onur
z.B. so:
https://www.mrexcel.com/forum/excel-questions/710212-vba-code-convert-excel-pdf-email-attachment.html
AW: E-Mail manuel nach umwandlung in pdf senden
24.11.2018 22:22:54
Niko
hi onur...thx, super....viel..viel einfacher :-)
Jetzt läuft es ohne Probleme...doch es nimmt nur ein Blatt im pdf auf.
Wie kann ich das umfunktionieren das es 2 oder mehrere ausgewählte Blätter in ein pdf einkopiert?
...und wenn ich die E-Mail abbreche gibt es mir ein Problem (es stoppt) bei der Zeile
' Quit Outlook if it was created by this code
If IsCreated Then OutlApp.Quit
Anbei die Datei geändert
https://www.herber.de/bbs/user/125637.xlsm
Verzeih mir in voraus wenn ich nerve….doch als Laie hänge ich an deine Lippen…oder Text besser gesagt :-)
Niko
Anzeige
AW: E-Mail manuel nach umwandlung in pdf senden
25.11.2018 11:07:14
Niko
VBA Guru gesucht mit ein Herz für ein Anfänger...
der erst beim Herberts VBA Grundlagen beim ersten Kapitel ist.
Habe hier im Forum und in anderen Foren nach eine passende Lösung gesucht, doch ohne Erfolg. Hier im Forum habe ich eine Lösung gefunden die zwar nah doch nicht 100% Prozent ist, das was ich machen möchte. Langsam gehen mir auch meine letzten VBA Gehirnzellen verloren.
Möchte von einer Excel Datei nur 2 oder 3 ausgesuchte Blätter in „einer“ PDF Datei umwandeln und die in eine E-Mail erscheinen lassen wo ich Manuel auf senden drücken kann.
Anbei die Datei und den Code den ich hier im Forum gefunden habe der fast alles macht, außer dass es 2 oder 3 Blätter in eine PDF zusammenfügt.
https://www.herber.de/bbs/user/125640.xlsm
Der VBA Guru der mir eine Lösung geben könnte, kommt in meine Walhalla Fame of Hall ganz oben :-)
PS. Danke onur für seine bisherigen Bemühungen, haben mich echt ein Stückchen weiter gebracht.
Anzeige
AW: E-Mail manuel nach umwandlung in pdf senden
27.11.2018 13:00:54
Niko
Lösung gefunden ...im fall das sie auch ein anderer wissen möchte...
Bei den Befehl, FixedFileName einfach ein slash hinzufügen, wie unten...und funktioniert bei allen Excel versionen ab 2007-2016 und ab Win 2007-10.
Im grunde fügt man damit ein hard-coded path hinzu bzw. dort wo das pdf macro abgespeichert ist.
FileName = Create_PDF_Sheet_Level_Names(NamedRange:="addtopdf", _
FixedFilePathName:=ThisWorkbook.Path & "\Arbeitskarte.pdf", _
OverwriteIfFileExist:=True, _
OpenPDFAfterPublish:=False)
LG
Niko

302 Forumthreads zu ähnlichen Themen

excel-datei per email versenden
meixner

Hallo zusammen,
Habe ein Makro, dass eine Excel - Datei nach Aufmachen aktualisiert und dann per Email versendet, wenn ich dies anklicke.
Möchte, dass um eine bestimmte Uhrzeit z.B. 17.00 Uhr die Datei automatisch sich aktualisiert und versendet wird.
Habt ihr eine Idee?
wsZiel....
25.03.2009 18:13:18
Thread-ID: 1063913
2 Beiträge
Anzeige
Arbeitsmappe per Mail versenden
massimo17

Hallo,
ich möchte eine Arbeitsmappe per Mail versenden.
Folgendes Vorgehen ist geplant:
1. Der User erhält einen Fragebogen in EXCEL-Format zum ausfüllen
2. Nach erfolgreichem ausfüllen, soll er auf einen Knopf drücken der die ausgefüllte Mappe versendet
Bei mir tritt das P...
10.11.2009 16:52:09
Thread-ID: 1115943
4 Beiträge
Kopierten Text in E-Mail einfügen | Herbers Excel-Forum
Urmila
Hallo alle zusammen,
und schon habe ich eine andere Frage...
Mit dem folgenden Code generiere ich eine E-Mail im Excel Dim OutLookJob As Object, mymail As Object, month As Integer, year As Integer month = Format(Date, "MM") year = Format(Date, "YYYY") Set OutLookJob = CreateObject("Outlook....
13.01.2010 15:44:58
Thread-ID: 1129549
5 Beiträge
Anzeige
Copoe per Mail versenden
Paul

Hallo Excel-Freunde,
folgenden Code habe ich gebastelt um, gestartet über einen Button auf Sheet 1 eine Copy von Format und Werte des Sheets "Übersicht zu erstellen und diese dann frei von Macro's an die im Feld "MailAdd" stehenden Empfänfer zu senden
Das funktioniert soweit auch, nur k...
25.02.2010 10:04:02
Thread-ID: 1141285
2 Beiträge
Autofilterergebnisse per Email versenden
Mister

Hallo,
ich stehe mal wieder auf'm Schlauch. Aus einer UF heraus filter ich Datensätze in einer Tabelle mit dem Autofilter. Ich möchte jetzt die gefilterte Tabelle per Mail versenden, möchte aber, dass nur die gefilterten Ergebnisse geschickt werden. Ich habe lange im Archiv recherchiert...
27.04.2010 13:47:28
Thread-ID: 1154064
4 Beiträge
Tabelle in Word einfügen
Carle

Hallo miteinander,
ich stehe vor der an und für sich einfachen Aufgabe (sollte man jedenfalls meinen) eine Tabelle in ein Word-Dokument einzubinden. Ich gehe wie folgt vor: Tabelle wird in Excel markiert und kopiert, dann wechsele ich in das Word-Dokument und gehe auf Bearbeiten/Inhalte ein...
03.01.2011 12:26:59
Thread-ID: 1193638
4 Beiträge
Attachmentname in E-Mail Nachicht einfügen
Seppel

Hallo VBA Gemeinde,
Über ein Exeldatei lasse ich eine E-Mail generieren, das funktioniert so weit auch alles mit dem hier unten angegbenen Code. Ich möchte aber gern noch in den Mail Body (Nachichtentext) den Namen der angefügten Datei mit einbinden.
Im Nachichtentext wäre das z.B. nach...
24.09.2011 07:05:04
Thread-ID: 1231295
5 Beiträge
zahlen aus excel in wordtabelle farbig einfügen
preusbep

hallo ich würde gerne zahlen die ich aus excel lese in eine wordtabelle farbig einfügen. Leider werden die Zahlen nicht farbig sondern bleiben schwarz !
Danke für die Hilfe Sub farbe3() Dim Farbe(1 To 3, 1 To 1) As Single Set Word = CreateObject("word.Application") For i = 1 To 3 Farbe(i, 1...
27.09.2011 15:29:42
Thread-ID: 1231690
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
3
4
36
1
3
3
4
3
2
5
1
2
8
2
4
1
4
9
4
3
1
3
2