Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.10.2025 10:43:56
Flagstatus eines Meetingtems nicht abfragbar
09.10.2025 10:00:47
Von zwei Zellen mit Sverweis (B7 und H8) die Summe bilden
09.10.2025 09:48:16
Tabellen mit xverweis zusammen fügen
09.10.2025 09:37:38
Ausgabewert drei Spalten nach Rechts kopieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

E-Mail Versenden mit Abfrage nach zus. Anh.

Forumthread: E-Mail Versenden mit Abfrage nach zus. Anh.

E-Mail Versenden mit Abfrage nach zus. Anh.
31.08.2007 10:37:00
Paul
Hallo Excel-Spezialisten,
ich suche verzweifelt für folgendes Problem eine Lösung. Ich versende z.Z. per VBA.Macro "ActiveWorkbook.SendMail Recipients:="emaiadresse.de" eine Exceldatei per Mail an eine feste Mail-Adresse. Nun muß ich seit neustem in diesem Mail nicht nur die Excel-Datei versenden sondern auch noch jedesmal 5-7 individuelle Fotos. Ich stelle mir jetzt vor, das beim Versand der Datei eine Abfrage kommt die den anwender verpflichtet, dem Mail vor dem Versenden zusätzliche Anlagen hinzuzufügen. Hat da jemand eine Idee?

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: E-Mail Versenden mit Abfrage nach zus. Anh.
02.09.2007 22:45:31
Josef
Hallo Paul,
Beispiel zum versenden der Mail per Outlook.
Sub MailMitMultiAnhang()
Dim OApp As Object, OMail As Object
Dim strAtt As String
Dim attAdd As Boolean

On Error GoTo ErrExit

With Application
    .EnableEvents = False
    .ScreenUpdating = False
End With

Set OApp = CreateObject("Outlook.Application")
OApp.Session.Logon

Set OMail = OApp.CreateItem(0)

With OMail
    .To = "try.to@guess.it" 'Empfänger
    .Subject = "Testfile" 'Betreff
    .Body = "Deine Nachricht" 'Nachrichtentext
    .Attachments.Add ActiveWorkbook.FullName
    
    Do
        
        strAtt = Application.GetOpenFilename("Alle Dateien (*.*),*.*")
        
        If strAtt <> "Falsch" Then
            .Attachments.Add strAtt
            attAdd = True
        End If
        
        If Not attAdd Then
            If MsgBox("Wollen Sie die Datei wirklich ohne weitere Anlagen versenden?", _
                36, "Mailanhang") = 7 Then strAtt = ""
        End If
        
    Loop While strAtt <> "Falsch"
    
    .Display 'oder .Send um die Mail gleich zu versenden
End With

ErrExit:

Set OMail = Nothing
Set OApp = Nothing

With Application
    .EnableEvents = True
    .ScreenUpdating = True
End With
End Sub

Gruß Sepp

Anzeige
AW: E-Mail Versenden mit Abfrage nach zus. Anh.
03.09.2007 17:34:00
Paul
Hallo Sepp,
leider klappt Dein Tipp nicht, ich will aber auch nicht aussschliessen, dass ich irgend etwas falsch umgesetzt habe. Jetzt kommt mir aber ein ander Gedanke: Mit "ActiveWorkbook.SendMail Recipients:="emaiadresse.de" wird ja die Datei direkt versendet ohne ein Outlook-Fenster zu öffnen. Kann man das Macro nicht so ändern, dass sich das Outlook-Fenster mit gefüllter Adresse, Betreffzeile und Anghang öffnet und man dann die Bilder noch anhängen kann?

Anzeige
AW: E-Mail Versenden mit Abfrage nach zus. Anh.
03.09.2007 18:05:50
PaulBroich
Hallo Sepp,
nimm alles zurück, habe den Fehler gefunden, funkioniert jetzt perfekt, vielen vielen Dank!!!
;

Forumthreads zu verwandten Themen

Email versenden Outlook - Problem
Peter

Ich versende via Excel/VBA alle 3 Minuten ein Email.
Nun kommt es ca. 1x am Tag vor, dass Outlook Emails nicht sofort sendet und sich die Emails im Postausgang sammeln bis ich Outlook schließe und wieder öffne.
Danke für die Unterstützung.
Grüße
Peter
29.09.2008 13:58:00
Thread-ID: 1013103
2 Beiträge
Anzeige
ThisWorkbook email versenden
Joachim

Hi,
ich nutze diesen Befehl , um aus Excel heraus die gerade geöffnete Datei zu versenden.
ThisWorkbook.SendMail _
Recipients:="Test.test@test.com", _
Subject:="Ein Test"
Das Problem, die Mail wird sofort versendet, ohne das die email aufgeht und evt noch was reingeschrieb...
25.11.2008 13:50:23
Thread-ID: 1027709
3 Beiträge
Email aus Excel über Outlook versenden
ray

Hallo,
ich plane grad neue Projekte und hab eine Frage, wo ich nur die Antwort aber keinen code brauche.
Ich möchte den Inhalt der Label oder textboxen von ein UserForm an Outlook übergeben und via Outlook versenden.
Dabei soll diese Mail in dem Outlookordner 'gesendete Objekte' e...
02.12.2008 10:35:00
Thread-ID: 1029428
3 Beiträge
Email versenden
Fritz

Hallo schönen Abend!
Ich übermittle mit folgendem Code Daten an eine Email Adresse
Sub email2() Range("A10:B9").Select ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Introduction = "Ds ist ein Test Mail." & vbCrLf & "Verusch 1" .Item.To = "mustermann.karl...
01.02.2009 19:55:53
Thread-ID: 1045980
3 Beiträge
E-Mail automatisch senden nach Zelleninhalt
Martin

Guten Abend Zusammen
Bin nun seit 3 Stunden am basteln und es will nicht gehen.
Ich habe eine Liste die aus einem anderen Programm in Excel importiert wird.
In dieser Tabelle sind Daten von Aufträgen die fehler enthalten. Nun möchte ich via Button den jeweiligen Mitarbeitern die den...
03.02.2009 23:58:00
Thread-ID: 1046843
2 Beiträge
email mit Betreff versenden
Tobiax

Hallo!
Ich würde gerne auf Knopfdruck meine gesamte Exceldatei abc.xls versenden.
In der Betreff Zeile soll aus dem Blatt "Tabellen" die Zelle E2 verwedet werden
Die email Adressen sind Spalte A des Blattes "Verteiler" eingetragen.
Ich würde aber gerne noch einen Text selber sch...
09.03.2009 13:48:59
Thread-ID: 1058146
13 Beiträge
Anzeige
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
email aus excel versenden
Jürg

Hallo Forum
ich habe folgenden code gefunden. dieser ist gut. kann mann diesen noch anpassen, dass noch mehr Textzeilen aus Excel in das mail kommen , der bodytext mehrere zeilen hat. ich brauche 5 zeilen und dann noch die Signatur auch noch 5 zeilen .
vielen Dank
freundliche gr...
20.03.2009 13:47:02
Thread-ID: 1062185
5 Beiträge
Anzeige
Email mit Dateianlage senden
And

Hallo,
aktuelle Datei wird im Archiv mit Name+Datum+Zeit gespeichert
ChDrive ("G:\")
ChDir ("G:\Projekte\Archiv\")
Tagesdatum = Application.Text(Now(), "dd.mm.yyyy hh.mm")
Sicherung = "Arbeitsplanung-M" & "-" & "gesendet am " & Tagesdatum & "Uhr" & ".xls"...
25.03.2009 09:03:50
Thread-ID: 1063586
14 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
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
Email versenden
Snewi

Hallo,
ich habe eine Liste mit z.B. 20 Namen! Nun habe ich ein Dokument und dieses möchte ich über einen Button automatisch an alle Namen mit Outlook versenden! Ist das möglich! Habt iht ein Beispiel in VBA wie das aussehen könnte?
Gruß
02.09.2009 08:13:43
Thread-ID: 1099960
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige