07.03.2019, 18:11
Hallo zusammen,
habe derzeit eine Userform in meinem Plan, indem aus einer Tabelle die Email zu finden sind.
Ich möchte aber statt der Liste einzelne Optionfelder anlegen, um evtl auch mehrere Adressen zu verwenden.
Ist das ohne weiteres umstellbar. Komme da grad nicht weiter.
Hier der Code
habe derzeit eine Userform in meinem Plan, indem aus einer Tabelle die Email zu finden sind.
Ich möchte aber statt der Liste einzelne Optionfelder anlegen, um evtl auch mehrere Adressen zu verwenden.
Ist das ohne weiteres umstellbar. Komme da grad nicht weiter.
Hier der Code
Code:
Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 1
.ColumnWidths = "4cm"
.ColumnHeads = False
'ListBox1.RowSource = "Tabelle1!B2:B10"
'oder:
ListBox1.RowSource = "Tabelle1!B2:B10" & loletzte
End With
End Sub
'#########################################################
'######folgender Code ohne Abfrage der Jahreszahl#########
'#########################################################
Private Sub absenden_Click()
Dim mailadresse As String, Betreff As String
Dim olApp As Object
Dim strmailadresse As String
strmailadresse = ListBox1.Value
Set olApp = CreateObject("Outlook.Application")
mailadresse = strmailadresse
Betreff = "Plan 2019 - xxxx"
Body = "Moin,<br><br>" & _
"anbei ein Update unseres Plans 2019<br><br>" & _
"<br><br>" & _
"<br><br>" & olOldBody
ActiveSheet.PageSetup.PrintArea = "$A$6:$P$402"
Sheets("Plan 2019").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Temp\Plan_2019.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
With olApp.CreateItem(0)
.To = strmailadresse
.Subject = Betreff
.htmlBody = Body
.attachments.Add "C:\Temp\Plan_2019.pdf"
.Display
' .Send
End With
Set olApp = Nothing
Unload Me
End Sub