ich möchte eine Tabelle per Mail versenden.
Die Tabelle sollte aber nur in Druckansicht versendet werden.
Also ohne meine Button u.s.w. ,
wenn ich die Tabelle sonst ausdrucke und per Fax versenden.
Nur diese Druckansicht.
mfg
wolfgang
Code:
[Cc]
Sub MailSenden()
Dim sDateiname As String, sMailtext As String
sDateiname = "C:\#_Aufträge\#_Auftrag_wo.xlsm.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDateiname, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
With CreateObject("Outlook.Application").CreateItem(0)
.BodyFormat = 2 ' 2=HTML-Format, 3=Richtext
.Subject = "Mein Betreff" ' Betreff
.To = "AN@Web.de" ' Empfänger
.CC = "AuchAn@Web.de" ' Kopie
sMailtext = "Hallo," & vbLf & "hier die Datei" & vbLf
.GetInspector: ' Signatur holen
.htmlbody = Replace(sMailtext, vbLf, "<br>") & .htmlbody
.Display
.Attachments.Add sDateiname 'Anlage dran
End With
End Sub