Gruppe
Extern
Bereich
Outlook
Thema
Arbeitsblatt an variable Email-Adresse per Outlook versenden
Problem
Das in Zelle C1 genannte Arbeitsblatt soll mit dem in Zelle B1 genannten Betreff an die in Zelle A1 genannte Emailadresse gesandt werden.
Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub SendTab()
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 Sub