mehrere Dateien per VBA versenden
21.05.2007 12:43:58
jjo
Vieln Dank im voraus.
Sub email()
Dim datum As String
Dim lw As String
Dim pf As String
Dim b1 As String, b2 As String, b3 As String, b4 As String, b5 As String, b6 As String, b7 As String
Dim s1 As String, s2 As String, s3 As String, s4 As String, s5 As String, s6 As String, s7 As String
b1 = "_ges_lhwsrebib.csv"
b2 = "_telek_lhwsrebib.csv"
b3 = "_teleb_lhwsrebib.csv"
b4 = "_eng_lhwsrebib.csv"
b5 = "_ch_lhwsrebib.csv"
b6 = "_katb_lhwsrebib.csv"
b7 = "_sonst_lhwsrebib.csv"
s1 = Range("f61").Value
s2 = Range("f62").Value
s3 = Range("f63").Value
s4 = Range("f64").Value
s5 = Range("f65").Value
s6 = Range("f66").Value
s7 = Range("f67").Value
datum = Range("h23").Value
lw = "N:\"
pf = "N:\ZB_Erreichbarkeiten\VS\xxx\Berichtexxx\2007"
Dim outl As Object, mail As Object
Set outl = CreateObject("outlook.application")
Set mail = outl.createitem(olmailitem)
mail.Subject = "test"
mail.body = "diese email wurde durch ein makro erzeugt"
mail.to = "meine@email.de"
mail.attachments.Add s1
hier sollen noch die restl. s2 bis s7 mit rein
mail.display
Set outl = Nothing
Set mail = Nothing
End Sub