Bei diesem Thema handelt es sich um eine ausgelagerte Fortsetzung des Themas Listbox per Email versenden
Hallo erstmal und sorry das ich das alte Thema wieder aufgreife.
Aber ich suche die gleiche Funktion. Bin nur mit vb nicht so vertraut das ich ein Profi bin.
Ich versuche auch den Inhalt einer Listbox als email zu versenden.
Hier mal mein Formularcode mit dem ich Ergebnisse suche die in die Listbox eingetragen werden:
Und hier der Code für meinen Button mit dem ich den angezeigten inhalt der LIstbox gerne als email senden würde:
Ich verstehe nur nicht ganz wo ich diesen Code unterbekommen kann ohne das ich immer einen Fehler bekomme:
VIelen Dank schon mal
~blaze~: Beiträge in neues Thema verschoben
Hallo erstmal und sorry das ich das alte Thema wieder aufgreife.
Aber ich suche die gleiche Funktion. Bin nur mit vb nicht so vertraut das ich ein Profi bin.
Ich versuche auch den Inhalt einer Listbox als email zu versenden.
Hier mal mein Formularcode mit dem ich Ergebnisse suche die in die Listbox eingetragen werden:
Quellcode
- Private Sub cmdSuchen_Click()
- Dim lng As Long
- Dim i As Integer
- Application.ScreenUpdating = False
- With frmEingabe
- ListBox1.Clear
- Worksheets(1).Activate
- i = 0
- For lng = 11 To ActiveSheet.UsedRange.Rows.Count
- If InStr(LCase(Cells(lng, 18).Value), LCase(TextBox1.Value)) > 0 Then
- ListBox1.AddItem Cells(lng, 1).text
- ListBox1.Column(0, i) = Cells(lng, 3).text
- ListBox1.Column(1, i) = Cells(lng, 4).text
- ListBox1.Column(2, i) = Cells(lng, 5).text
- ListBox1.Column(3, i) = Cells(lng, 24).text
- i = i + 1
- Else
- End If
- Next lng
- End With
- Application.ScreenUpdating = True
- Dim zelle As Range
- Dim sBegriff As Date
- If IsDate(TextBox1) Then
- sBegriff = CDate(TextBox1)
- Else
- MsgBox "Es muss für diese Suche immer ein Datum vorhanden sein!", _
- vbInformation, "Hinweis"
- End If
- If sBegriff = 0 Then Exit Sub
- Set zelle = Worksheets(1).Columns(18) _
- .Find(sBegriff, LookAt:=xlWhole)
- If zelle Is Nothing Then
- MsgBox "Es wurden keine Maschinen gefunden!"
- End If
- 'Spaltenbreite festlegen
- ListBox1.ColumnWidths = "30 Pt;60 Pt;100 Pt"
- End Sub
Und hier der Code für meinen Button mit dem ich den angezeigten inhalt der LIstbox gerne als email senden würde:
Quellcode
- Private Sub CommandButton2_Click()
- 'Erstellen der Email für Outlook
- Dim objOutlook As Object
- Dim objMail As Object
- Set objOutlook = CreateObject("Outlook.Application")
- Set objMail = objOutlook.CreateItem(0)
- With objMail
- .To = "renekiesewetter@msn.com"
- .CC = ""
- .BCC = ""
- .Subject = "Ready Maschinen"
- .Body = sBody & ", " & Item
- .Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
- End With
- End Sub
Ich verstehe nur nicht ganz wo ich diesen Code unterbekommen kann ohne das ich immer einen Fehler bekomme:
VIelen Dank schon mal
~blaze~: Beiträge in neues Thema verschoben
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „~blaze~“ ()