Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Email per VBA versenden

Forumthread: Email per VBA versenden

Email per VBA versenden
20.09.2004 11:47:22
Magic
Hallo Experten,
ich möchte eine Datei, die mit einem Makro bearbeitet wird automatisch an einen Empfänger senden.
Wie sieht der VBA-Code dafür aus?
Danke für jeden Tipp.
Michael
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Email per VBA versenden
OttoH
Hallo Michael,
gehe mal in die Recherche; dort wurde das Problem schon oft durchgekaut.
Gruß OttoH
AW: Email per VBA versenden
Magic
Sorry OttoH,
habe wohl nicht die richten Suchbegriffe eingegeben und erst keine Resultate erhalten.
Aber wenn ich folgenden Code einsetze, bekomme ich eine Meldung von Outlook, daß jemand versucht in meinem Namen zu senden und muß 5 Sec. Warten bis ich mit Ok bestätigen kann.

Sub senden()
Application.DisplayAlerts = False
ThisWorkbook.SendMail _
Recipients:="Azubi/Kalk@biederlack.de", _
Subject:="Ein TEST"
Application.DisplayAlerts = True
End Sub

Kann man diesen Dialog evtl. abschalten / umgehen?
Danke im Voraus.
Michael
Anzeige
AW: Email per VBA versenden
20.09.2004 12:18:40
Torsten
versuch mal so, sollte gehen

Sub sende()
Dim olApp As Object
Dim objNachrich As Object
Set olApp = CreateObject("Outlook.Application")
Set objNachrich = olApp.CreateItem(0)
Set Mail = objNachrich
Mail.To = "torsten@k.de;" & "mein.bruder@k.de"
Mail.Body = "Hallo," & Chr(10) & Chr(10) & "hier meine info" & Blattname & Chr(10) & Chr(10)
Mail.Subject = Blattname
Mail.Attachments.Add Pfad & Blattname & ".xls"
Mail.Display
Kill Pfad & Blattname & ".xls"
End Sub

Anzeige
Danke, aber ....
Magic
Danke dir Thorsten,
funktioniert prima, aber wie kann ich das Versenden automatisch auslösen?
Gruß
Michael
AW: Danke, aber ....
20.09.2004 13:55:46
Torsten
wie meinst du das? automatisch (Button, Skript, bei welchem Ereignis?)
AW: Danke, aber ....
Magic
Hallo Thorsten,
danke für deine schnelle Rückmeldung.
Ich möchte eine XL-Mappe aus einem XL-Makro heraus verschicken, ohne daß ich eine Meldung mit OK bestätigen muß (siehe Thread) oder die email angezeigt bekomme und auf senden clicken muß.
Hintergrund: Ich übernehme Daten aus einem nicht-Office Programm und bereite diese Daten ein wenig auf. Jetzt möchte ich diesen fertigen Report direkt an den Empfänger senden.
Das kriege ich dank Dir ja soweit auch hin, aber wenn ich Mail.Send verwende bekomme ich immer ein Fenster angezeigt in dem ich bestätigen muß das das Senden auf meinen Namen auch in Ordnung ist, bzw. bei Mail.Display muß ich ja noch auf den "Senden"-Button clicken.
Das möchte ich eigentlich vermeiden.
Gruß
Michael
Anzeige
AW: Danke, aber ....
20.09.2004 15:25:24
Andre
Hi Michael,
das geht leider nicht "schön" per vba! Outlook soll so geschützt werden! Schön Gruß an Microsoft!!!
Es funktioniert entweder mit einer SendKey-Funktion, aber das ist alles andere als elegant! Besser sollte es mit einem Zusatzprogramm gehen, hier mal zwei links, die dir helfen sollten:
http://www.dimastr.com/redemption/
http://www.contextmagic.com/express-clickyes/
Gruß Andre
Anzeige
Danke schön :-)
Magic
Danke Dir Thorsten,
hilft mir sehr.
Gruß
Michael
AW: Danke schön :-)
20.09.2004 22:19:36
torsten
hallo magic,
binnjetzt zuhause und lese den werdegang, da sehe ich momentan auch keine wirkliche lösung. vielleicht kann dir jemand mit einem weiteren las meinem horizont helfen.
viel erfolg noch und viele grüsse
torsten
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
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
Tabelle per Mail senden
And

Hallo,
Habe aus dem Archiv folgenden Code:
Sub Blattsenden() Sheets("Tabelle1").Copy On Error Resume Next ActiveWorkbook.SendMail Recipients:="Otto@gmx.de", Subject:="Testmail" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True If Err.Number > 0 T...
19.03.2009 11:01:22
Thread-ID: 1061745
9 Beiträge
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
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
Anzeige
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
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
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
Email per VBA versenden
Armin

Hallo,
ich habe folgende Frage zum Versenden einer E-Mail per VBA:
1. Es soll eine Mail mit eigenem Text, Betreffzeile und Vorgabe der Mail-Adresse erzeugt werden .
2. In Outlook soll nur das Mail-Fenster mit dem Text etc. angezeigt werden. Kein automatischer Versand der Email.
...
23.11.2009 12:18:27
Thread-ID: 1119417
10 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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