Listboxauswahl als emailempfänger?
08.09.2006 20:13:04
selo
Sub Send_Chart_from_Excel()
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
'Das anzeigen der Envelope Commandbar ist unabdingbar
ActiveWorkbook.EnvelopeVisible = True
'Nun werden die Adressen vergeben
With ActiveSheet.MailEnvelope
.Introduction = "Das ist der Einleitungstext." & vbCrLf & "das nächste folgt"
.Item.To = "simsalabim@hotmail.com"
.Item.Subject = "Das aktuelle Diagramm"
.Item.Send
End With
End Sub
sowie
Private Sub UserForm_Activate()
Dim letzte_Zeile As Long
Dim s As Long
s = Range("a14").End(xlDown).Row
letzte_Zeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
ActiveWorkbook.Sheets("email").Select '´Tabelle auswählen
Me.ListBox1.ColumnCount = 1
Me.ListBox1.ColumnWidths = "3cm;0,5cm"
Me.ListBox1.ColumnHeads = False
Me.ListBox1.RowSource = "b1:b" & s
End Sub
hier werden In die Listbox aus der tabelle die emailadressen aufgenommen.
nun zu meiner frage
wie muß ich den ersten code verändern, damit die Emailadresse welche in der listbox angeklickt wird als Empfänger angenommen wird anstatt hier
simsalabim@hotmail.com
gruß
selo