E-Mail Bereichsversand -funktioniert das?
Peter
Hallo Leute,
ich habe diese
Sub gefunden um einen best. Bereich mit Outlook
zu versenden.
Kann sich das mal jemand ansehen ob die Sache wirklich
funktioniert.
Danke Peter
Sub E_Mail()
'Zellbereich mit Outlook versenden
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim sAddress As String
sAddress = "P1"
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
Set objOutlookRecip = .Recipients.Add(sAddress)
.Subject = "Test E-Mail mit Excel"
.Body = ActiveSheet.Range("A1:D20")
.Importance = olImportanceHigh
.Send
objOutlookRecip.Resolve
End With
Set objOutlook = Nothing
End Sub