Aus Excel eine automatische e-mail verschicken

Computer: Software & Programmierung Visual Basic
#1

Hi,
habe mal eine Frage.
Hat einer eine Lösung, wie ich ein Makro für Excel schreibe, das aus Outlook eine e-mail mit Daten befüllt und verschickt.
Habe zwar ein Makro das ein Tabellen Blatt verschickt aber das ist meinem Chef nicht gut genug.
Kann mir da jemand helfen?

#2 
Public Function OutlookMailErstellen(ByVal ToRecipient As String, ByVal subj As String, ByVal body As String, ByVal attachfilename As String) As Boolean
On Error Resume Next
Dim email As MailItem
 Set email = outlook.Application.CreateItem(olMailItem)
 With email
 .To = ToRecipient
 .subject = subj 'Betreff
 .body = body
 If attachfilename "" Then
 .Attachments.Add attachfilename
 End If
 .Send
 End With
 Set email = Nothing
End Function

Evtl. noch im Editor im Menu bei Verweise Outlook 11.0 anklicken…

Ralph