leider komme ich einfach nicht weiter. :-(
Meine Aufgabe: möchte eine E-Mail (Body) nach einer Inputbox generieren.
Die Abfrage geht ( hier wird die Zeile der Tabelle ausgesucht)
Auch die Email mit Body wird generiert, nur die richtige Auswahl geht nicht.
Hier mein Code:
Sub test()
Dim i As Long
Dim f As Long
With Worksheets("SOKA-Auszug")
i = Application.InputBox("Bitte Zeile eingeben", "Arbeitnehmer", 0, Type:=1)
If i = 0 Then Exit Sub
f = .Range(i, "B").Value
Dim olApp As Object
Dim olOldBody As String
olSubject = Format(Date, "dd-MM-yyyy") & " " & "Anforderung AN-Kontoauszüge BKN: " & .Cells(i, _
_
_
_
_
_
"G")
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
strhtml = strhtml & "Sehr geehrte Damen und Herren," & "
" & "
strhtml = strhtml & "ich bitte um Zusendung der Arbeitnehmerkontoauszüge für den unten aufgefü _
_
_
_
_
_
hrten Arbeitnehmer, gerne per E-Mail: " & "
" & "
" & "
strhtml = strhtml & "Betriebsnummer: " & Range("G2") & "
" & "
strhtml = strhtml & "Firma: " & f & "
" & Range("K2").Value & " in " & Range("L2").Value & " _
_
_
_
_
_
" & Range("M2").Value & "
" & "
strhtml = strhtml & "Name, Vorname: " & Range("F2").Value & "
" & "
strhtml = strhtml & "Beginn: " & Range("D2").Value & "
" & "
" & "
strhtml = strhtml & "AN-Nummer/Geburtsdatum: " & Range("D20").Value & "
" & "
" & "
strhtml = strhtml & "Meine Kontaktdaten sind unten Aufgeführt." & "
" & "
strhtml = strhtml & "Vielen Dank für Ihre Bemühungen." & olOldBody
.GetInspector.Display
olOldBody = .htmlbody
.to = "anforderung@soka-bau.de"
.Subject = olSubject
.htmlbody = "" & strhtml
End With
End With
End Sub
für die Range Sachen soll die entsprechende Spalte (siehe Code) und die Zeile aus der Inputbox genommen werden. Leider habe ich keine weitere Idee.
Bitte helft mir. *anfleh*
LG Janne