Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
952to956
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
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Senden File per Mail

Makro Senden File per Mail
20.02.2008 21:31:34
Ailenroc
Hallo
Kann mir jemand sagen, wieso dieses Makro nicht funktioniert ?

Private Sub CommandButton1_Click()
ActiveWorkbook.SendMail
End Sub


Ich möchte einfach nur das aktuelle Tabellenblatt bzw. das Excel-File als Anhang im Outlook verschicken. Allerdings soll das Mail nicht automatisch an eine bestimmte Adresse verschickt werden, sondern ich möchte nur, dass eine neue Mail-Nachricht geöffnet wird, mit dem Excel-File im Anhang...
Ich bin sicher, das steht schon irgendwo, aber ich hab's nicht gefunden. Ich habe schon viele der hier im Forum geschriebenen Tips ausprobiert, keiner funktioniert...

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Senden File per Mail
20.02.2008 22:07:01
Wrobel
Hallo!
Dies könnte funzen.
Gruß
André

Sub Arbeitsblatt_versenden()
'aktives Tabellenblatt als Arbeitsmappe
'im Temporären Ordner speichern, als
'Anlage mit Outlook versenden und anschliesend löschen
Dim strPath As String
Dim strName As String
Dim strFile As String
strPath = "C:\Windows\Temp\" 'Pfad
'strName = Range("A1")
If strName = "" Then Exit Sub
'strName = ActiveSheet.Name 'Tabellenname
strFile = strPath & strName & ".xls"
Application.ScreenUpdating = False
ActiveSheet.Copy
Cells.Select
Selection.Copy
Call Verknuepfungen_löschen
'Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
' False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
With ActiveWorkbook
.SaveAs strFile
Senden strFile 'Datei versenden
.Close
End With
Kill strFile 'Datei löschen
Application.ScreenUpdating = True
End Sub




Sub Senden(AWS As String)
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
'.To = ActiveSheet.Range("B1")
.Subject = InputBox(strName) '"strName" ' "Betreffzeile Header"
.Attachments.Add AWS
'.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
End With
'OutApp.Quit
'Set OutApp = Nothing
'Set Nachricht = Nothing
End Sub


Anzeige
AW: Makro Senden File per Mail
20.02.2008 22:10:58
Wrobel
Sorry hatte ich noch vergessen.

Sub Verknuepfungen_löschen()
ActiveSheet.Unprotect
On Error GoTo Errorhandler
Do
Cells.Find(What:=".XLS", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Loop
Errorhandler:
End Sub


Gruß
André

AW: Makro Senden File per Mail
21.02.2008 07:16:00
ailenroc
Danke, aber das funktioniert alles nicht. Ich hab die Lösung inzwischen erhalten, sie lautet:

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSendMail).Show
End Sub


So schlicht und einfach... ;-)

Anzeige

299 Forumthreads zu ähnlichen Themen

Mailversand mit Anhang
Tom

Hallo zusammen,
habe eigentlich genau das im Archiv gefunden, was ich wollte - Mailversand an viele Empfänger.
Habe es auch etwas angepaßt. https://www.herber.de/bbs/user/54483.xls
Was mir jetzt noch fehlt, ist, dass ich gerne eine Datei aus dem Verzeichnis
(C:\Dokumente und Ei...
10.08.2008 09:44:49
Thread-ID: 1000570
12 Beiträge
Anzeige
Emails an mehrere Empfänger mit Dateinhalten
Julia

Liebes Forum,
Ich wende mich mit der folgenden Bitte an Euch:
In meiner Excel-Datei habe ich einen Code geschrieben, mit dem ich eine Lotus-Notes-EMail an eine bestimmte EMail-Adresse und mit einem bestimmten Inhalt verschicken kann.
Die Datei https://www.herber.de/bbs/user/58345.xl...
13.01.2009 17:14:00
Thread-ID: 1039317
3 Beiträge
excel tabellenblatt mit outlook versenden
Hansi

Bitte um Hilfe - ich habe ein VBA Scrip zum versenden einzelner Tabellenblätter:
Sub Blatt_senden() Sheets("NAME").Copy ActiveWorkbook.SendMail "PERSON@PROVIDER", "Aktuelle Zahlen" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True End Sub
Wie kann...
19.02.2009 10:00:00
Thread-ID: 1052006
5 Beiträge
Anzeige
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
Email per Code senden
Volker

Schon wieder ein für mich wichtige Frage:
Wie kann ich bei einer Veränderung einer Bestimmten Zelle eine Sendung dieses Tabellenblatts als Anhang an eine bestimmte Emailadresse automatisch (möglichst ohne ein zutun vom Benutzer) auslösen?
Der Code sollte mit dem öffnen der Arbeitsmappe...
27.05.2009 18:20:55
Thread-ID: 1077791
11 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
Tabellenblatt per Mail versenden
Sandra

Hallo zusammen,
vor lauter Bäumen habe ich nix im Archiv gefunden (irgendetwas passte nie). Vielleicht hat ja jemand von Euch ein derartiges Makro schon einmal gemacht.
Ich möchte aus einer Datei ein Makro starten, was folgendes macht:
Ein Tabellenblatt dieser geöffneten Datei soll...
12.06.2009 15:45:33
Thread-ID: 1081014
4 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

Links zu Excel-Dialogen

CommandButton InputBox

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
11
1
2
4
8
1
10
1
3
1
6
3
9
2
1
6
1
6
2
36
1
2
3
1
6