Outlookempfänger aus Excel auslesen

• Outlookempfänger aus Excel auslesen von Bernd vom 01.10.2003 22:33:40
  • AW: Outlookempfänger aus Excel auslesen - von Willie am 02.10.2003 14:52:59

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!!!!

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

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