wie kann ich eine mail (outlook) via excel vba versenden?
ganz generell...wie sähe der code aus, wenn z.b. nur der name des empfängers in zelle a1 stünde.
danke und
gruß
sebastian
Sub SendenTab()
' in A1 Name des Tabellenblattes
' in A2 Mailempfänger
' in A3 Betreff
Application.ScreenUpdating = False
Dim wks As Worksheet
Application.DisplayAlerts = False
Set wks = ActiveSheet
Worksheets(Range("A1").Value).Copy
ActiveWorkbook.SendMail wks.Range("A2").Value, wks.Range("A3").Value
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub