Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Arbeitsblatt an variable Email-Adresse per Outlook versenden

Gruppe

Outlook

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

    

Beiträge aus dem Excel-Forum zu den Themen Extern und Outlook