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

Outlookempfänger aus Excel auslesen

Forumthread: Outlookempfänger aus Excel auslesen

Outlookempfänger aus Excel auslesen
02.10.2003 00:33:40
Bernd
Hallo,
ich möchte eine Exceldatei, in der eine Outlookadresse in einer Zelle (z.B. Z1,S1) eingetragen ist, an diese Adresse versenden und die Datei selbst als Anlage beifügen.
Bisher kann ich Outlook öffnen und Datei anhängen mit folgendem Code:

Application.Dialogs(xlDialogSendMail).Show

Eigentl. Problem ist also eine Excelzelle auszulesen und als Empfänger in Outlook einzutragen. Wie wäre der gleiche Code, um die Adresse als CC einzutragen?
Herzlichen Dank!!!!
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Outlookempfänger aus Excel auslesen
02.10.2003 16:52:59
Willie
So geht es! Gruß Willie


Sub AktiveTabelleAlsEMailVersenden()
Dim Empfänger As String
Empfänger = Cells(1, 1).Value
If Empfänger = "" Then Exit Sub
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs ActiveSheet.Name & ".xls"
ActiveWorkbook.SendMail Recipients:=Empfänger, _
Subject:="Hier den Betreff eingeben!"
ActiveWorkbook.Close savechanges:=False
End Sub

Anzeige

Forumthreads zu verwandten Themen

VBA mehrere Empfänger und Anhang
Pellton

Hallo Zusammen
Ich habe folgenden Code zusammengebastelt. Das einzige kleine Problem dass ich noch habe ist dass ich einen zusätzlichen Empfänger ins CC setzen möchte. Oder wenigstens einen zusätzlichen Empfänger in die Empfängerzeile. Funzt leider nicht mit Semikollon oder Komma etc. Kann...
13.06.2017 15:39:15
Thread-ID: 1563900
11 Beiträge
Anzeige
Status bei email-Versendung
Christian

Hallo,ich will den Status beim Versenden einer e-mail in Excel abfragen.Dim Status as BooleanStatus = Application.Dialogs(xlDialogSendMail).Show
If Status Then
...
End IfObiges funktioniert auch einwandfrei. Das Problem ist, das bei der Angabe von Argumenten (bin einer fauler Kerl :-...
18.10.2002 14:37:10
Thread-ID: 170766
2 Beiträge
Mail-Makro mit Adresse
serge

Hallo Leute
ich komme nicht weiter!
ich speichere ein Tabelleblatt ("Rechnung")aus meiner Mappe ("Analysenmanagement.xls").und versende es über Mail. Das klappt soweit.
Sub rechnung() Sheets("Rechnung").Select Sheets("Rechnung").Copy ChDir "K:\Keller" ActiveWorkbook.SaveAs Filenam...
29.05.2007 13:10:28
Thread-ID: 873356
2 Beiträge
xlDialogSendMail - Passwort übergeben
texas

Guten Tag allerseits:
Ich habe eine Frage bezüglich des Dialoges xlDialogSendMail:
Mein momentanes Makro für das Senden der aktuellen Arbeitsmappe an eine bestimmte E-Mail-Adresse lautet folgendermassen:
Application.Dialogs(xlDialogSendMail).Show "xxx@yyy.com"
nun hat sich das...
19.08.2007 18:39:00
Thread-ID: 898384
4 Beiträge
inhalt einer exceldatei per mail schicken
PeterO
Hallo Forum,

will mit diesen code das aktuelle blatt als mail verschicken,

Sub BerichtAlsEMailVersenden1() Dim Empfaenger, Titel As String ' E-Mailadresse Empfaenger = "test@test.de" ' Titel Titel = "Tabelle1" ' Name der Datei "A3" ActiveWorkbook.Worksheets("Tabelle1").Copy Applic...
01.09.2003 00:59:04
Thread-ID: 302764
5 Beiträge
Bitte um Hilfe
Peter

Guten Morgen,
habe folgendes Problem, bis jetzt lief alles problemlos, aber durch einen Rechnerwechsel läuft das Makro nicht mehr, hängt sich in der Zeile
Application.Dialogs(xlDialogSendMail).Show wi, B auf.
Kann jemand helfen?
Public wi, B
Private Sub CommandButton1_Cl...
07.10.2005 10:01:48
Thread-ID: 678177
3 Beiträge
Anzeige
Tabelle per Mail
Peter

Guten Abend,
ich habe folgendes Problem. Mit dieser Userform versende ich eine durch Makros
erzeugte Tabelle. Das komplette Makro läuft durch.
Nur werden zwei Mails erzeugt, einmal ohne Empfängeradresse mit dem Text b
und einmal mit der richtigen Adresse mit dem Text c.
Ich...
25.01.2006 18:41:11
Thread-ID: 724091
1 Beitrag
Anzeige
Laufzeitfehler bei xlDialogSendMail + Outlook Expr
Marc

Hallo Zusammen,
ich habe ein kleines Problem, wenn ich eine E-Mail aus Excel heraus versenden möchte. Der Code:
sFileName = "TEST"
arrRecipients = Array("abc@xyz.de", "def@xyz.de", "ghi@xyz.de")
Application.Dialogs(xlDialogSendMail).Show arrRecipients, sFileName
funktioniert...
01.06.2005 14:13:45
Thread-ID: 618492
1 Beitrag
VBA für Werte und Formate einzelner Blätter
Mathi

Hallo liebe Excel-Könner!
Ich möchte aus einer Mappe einzelne Blätter an Outlook anhängen.
Und zwar nur Werte und Fromate.
Gestern habe ich von einem netten User diesen Code erhalten, der teilweise funktioniert.
Option Explicit Sub Kopieren() ActiveSheet.Copy After:=Sheets(Sheet...
09.02.2017 12:20:22
Thread-ID: 1540430
3 Beiträge
Eine Datei als Excel und Pdf mit Outlook
Alex

Hallo Liebe Leute, ich habe einen Code geschrieben der aus verschiedenen Daten ein Excel Sheet exportiert. Dieses wird automatisch per Mail verschickt. Dazu verwende ich: Public Sub ExtendMail() xyz= "TYPE " & Range("Name").value ' hier wird von Public Sub der Export geholt Application.Dia...
29.01.2015 16:14:47
Thread-ID: 1406087
14 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum