Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
996to1000
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
996to1000
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Screenshot als Emailanhang

Screenshot als Emailanhang
05.08.2008 11:55:39
webxite

Hallo an alle im Forum,
ich habe folgendes Problem. Ich möchte gerne die Screenshots die ich erstelle direkt als Emailanhang haben.
Ein Makro das ein Screenshot macht habe ich breits. Nun liegt es im Zwischenspeicher aber ich weiß nicht wie ich als Datei (am besten .jpg) abspeichere und als Anhang einfüge.
Kann mir jemand von euch weiterhelfen? Würde mich über Feedback freuen.
Grüße
webxite

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

Betreff
Datum
Anwender
Anzeige
AW: Screenshot als Emailanhang
05.08.2008 12:15:00
Simone
Du hast das zukünftige Bild im Zwischenspeicher (für dumme wie mich quasi STRG+C) liegen?
Dann öffne doch ganz primitiv PAINT oder sonst so ein Zeichenprogramm und füg es mit STRG+V ein, geht das nicht?
Alternativ kann ich Dir SnapShot oder empfehlen, das kannst kostenlos ausm Netz runterladen, dann haste das Problem nicht mehr =)
LG
Simone

AW: Screenshot als Emailanhang
05.08.2008 12:38:00
webxite
Hallo Simone,
ja klar geht das auch. Ist halt manuel. Das Makro soll ja automatisch ablaufen deswegen meine Frage.
Gruß
webxite

AW: Screenshot als Emailanhang
05.08.2008 13:47:00
Tino
Hallo,
teste mal, erstellt eine neue Arbeitsmappe mit Diagramm fügt in dieses dein Bild aus der Zwischenablage ein und speichert dieses als jpeg, danach wird dieses wieder geschlossen.
Diese Bild kannst du versenden.

Sub Test()
Dim SaveName As String
SaveName = Application.GetSaveAsFilename( _
InitialFileName:= "MeinBild" _
& ".jpg", fileFilter:="JPEG Image (*.jpg), *.jpg")
Workbooks.Add
ActiveSheet.Name = "JPEG_Container"
Charts.Add
ActiveChart.ChartArea.ClearContents
ActiveChart.Paste
ActiveChart.Export Filename:=LCase(SaveName), FilterName:="JPEG"
ActiveWorkbook.Close False
End Sub


Gruß Tino

www.VBA-Excel.de


Anzeige
Korrektur
05.08.2008 14:08:56
Tino
diese Zeile wird nicht gebraucht
ActiveSheet.Name = "JPEG_Container"
Grß Tino

AW: Screenshot als Emailanhang
05.08.2008 14:24:31
webxite
Hallo Tino,
sehr guter Tipp von dir! Es klappt recht gut. Jetzt muss ich nur noch die Datei als Anhang an die Mail anhängen.
Recht herzlichen Dank!
Gruß
webxite

AW: Screenshot als Emailanhang
05.08.2008 14:44:58
Tino
Hallo,
so nun komplett
'Benötigt den Verweis auf Microsoft Outlook Object Library

Sub test()
Dim MyOutApp As New Outlook.Application, MyMessage As Object
Dim SaveName As String
SaveName = Application.GetSaveAsFilename( _
InitialFileName:="MeinBild" _
& ".jpg", fileFilter:="JPEG Image (*.jpg), *.jpg")
Workbooks.Add
Charts.Add
ActiveChart.ChartArea.ClearContents
ActiveChart.Paste
ActiveChart.Export Filename:=LCase(SaveName), FilterName:="JPEG"
ActiveWorkbook.Close False
'Mail erstellen *****************************************************
Set MyMessage = MyOutApp.CreateItem(olMailItem)
With MyMessage
.To = "Hier kommt die Adresse rein"
.Subject = "hier der Betreff"
.body = "Mein Text"
.Attachments.Add SaveName
.Display
'.Send  'Hier wird die Mail gesendet
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
''hier kann dieses Bild wieder gelöscht werden.
'Kill SaveName
End Sub


Gruß Tino

www.VBA-Excel.de


Anzeige
AW: Screenshot als Emailanhang
05.08.2008 15:40:50
webxite
Besten Dank Tino!!!
Viele Grüße
Webxite

123 Forumthreads zu ähnlichen 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
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
Email als Einfügen und Anhang senden
Volker

Hallo liebe Excel- Gemeinde,
habe da mal wieder ein Problem mit Excel und dem versenden von einer Exceldatei.
Den Code habe ich aus dem Forum, ein wenig abgeändert. Leider ist das Ergebnis nicht "vollkommen" wie ich es haben wollte
https://www.herber.de/bbs/user/65540.xls
Ich b...
03.11.2009 07:22:25
Thread-ID: 1113911
6 Beiträge
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
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
PDF als Email Anhang senden
Matthias

Ich möchte mit Excel 2007 Bordmitteln aus einer Arbeitsmappe ein PDF Dokument wandeln und dieses als Anhang per Email versenden.
Also den Weg über Office/Senden/PDF-E-Mail-Anlage... automatisieren
Im Netz habe so einen Fall nicht finden können.
Der Makrorekorder liefert auch keine b...
13.07.2010 13:48:16
Thread-ID: 1166826
3 Beiträge

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
2
1
1
6
5
2
1
1
2
6
2
2
3
14
2
1
3
1
29
2
4
2
1
6