Den Druckbereich in eine Mail mit Button
25.06.2004 18:12:14
Stephan
ich versuche zum x-tenmal den Druckbereich in eine Mail zu bekommen.
Sie soll nicht als Anhang ausgegeben werden sondern in HTMLbody.
Ich habe ein Code der mir eine Mail aufruft.
Kann man den Code so ändern dass der Druckbreich in .htmlbody = "" eingefügt werden kann ?
Der Code:
Private Sub CommandButton1_Click()
Dim ool As Variant, oInspector As Variant, oMail As Variant
Dim myattachments As Variant, MyAnsw As String
On Error Resume Next
Set ool = Nothing
Set oInspector = Nothing
Set oMail = Nothing
Set ool = CreateObject("Outlook.Application")
Set oMail = ool.CreateItem(0)
Set myattachments = oMail.Attachments
With oMail
.To = ""
.Subject = ""
.htmlbody = "--Druckbreich--"
.myattachments.Add ""
.display
End With
End Sub
Gruß Stephan
Anzeige