Herbers Excel-Forum - das Archiv

Outlookempfänger aus Excel auslesen

Bild

Betrifft: Outlookempfänger aus Excel auslesen
von: Bernd
Geschrieben am: 01.10.2003 22:33:40
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!!!!

Bild

Betrifft: AW: Outlookempfänger aus Excel auslesen
von: Willie
Geschrieben am: 02.10.2003 14:52:59
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


 Bild
Excel-Beispiele zum Thema " Outlookempfänger aus Excel auslesen"
Mehrfachauswahl aus ListBox auslesen Dateien aus Listbox auslesen und öffnen
Bereich in RefEdit-Element eingeben und auslesen Auslesen der Arbeitsmappeneigenschaften
UserName aus der Windows-Registry auslesen Eintrag aus der Win.ini auslesen
Einzelnes Zeichen aus einer InputBox-Eingabe auslesen Ausgewählte Arbeitsblätter auslesen
Mehrfachauswahl in ListBox auslesen