ich brauche dringend Eure Hilfe! Folgendes Makro nutze ich.
Mit diesem Makro versende ich ein Tabellenblatt an einen bestimmten Mailempfänger.
Sub SendTab()
Dim intwahl As Integer
intwahl = MsgBox("Wollen Sie die Mail versenden?", _
vbYesNo + vbQuestion, "Rückfrage")
If intwahl = 6 Then
Dim wks As Worksheet
Application.ScreenUpdating = False
Set wks = ActiveSheet
Worksheets(Range("C1").Value).Copy
ActiveWorkbook.SendMail wks.Range("A1").Value, wks.Range("B1").Value
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End If
End Sub
Jetzt soll ich in die Mail aber noch einen allgemeinen Text reinschreiben, damit nicht nur das Tabellenblatt kommentarlos verschickt wird, z.B.
Sehr geehrte Damen und Herren,
anbei finden Sie die aktuellen Daten.
Mit freundlichen Grüßen
Fritzchen Müller
Ich stehe voll auf dem Schlauch, da ich in VBA nicht fit bin. Suche mir die Hilfe immer im Archiv (aus dem ist auch das obengenannte Makro).
Vielen Dank für Eure Hilfe!
Viele Grüße
Otto