Herbers Excel-Forum - das Archiv
Outlookempfänger aus Excel auslesen
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