Hallo zusammen,
ich komme bei folgendem Problem nicht weiter und würde mich freuen, wenn mir da jemand weiter helfen könnte.
Ich möchte einen Button erstellen, mit dem ich eine bestimmten Bereich von einem Arbeitsblatt als Pdf per Email über das Standard-Emailprogramm senden kann. Dabei sollte, wenn möglich ein fester Emailempfänger vorgegeben werden. Ein Betreff und Text ist nicht ganz so wichtig, wäre aber gut wenn es geht.
Ich habe mir folgendes zusammen gebastelt, bei dem der Versand aber nur über Outlook geht. Das würde ich gerne ändern. Vielen Dank im Voraus.
ich komme bei folgendem Problem nicht weiter und würde mich freuen, wenn mir da jemand weiter helfen könnte.
Ich möchte einen Button erstellen, mit dem ich eine bestimmten Bereich von einem Arbeitsblatt als Pdf per Email über das Standard-Emailprogramm senden kann. Dabei sollte, wenn möglich ein fester Emailempfänger vorgegeben werden. Ein Betreff und Text ist nicht ganz so wichtig, wäre aber gut wenn es geht.
Ich habe mir folgendes zusammen gebastelt, bei dem der Versand aber nur über Outlook geht. Das würde ich gerne ändern. Vielen Dank im Voraus.
Visual Basic-Quellcode
- Private Sub PdfPerMail_Click()
- Range("a1:z44").Select
- strFileName = "C:\Temp\Testdatei.pdf"
- ActiveSheet.ExportAsFixedFormat _
- Type:=xlTypePDF, _
- Filename:=strFileName, _
- Quality:=xlQualityStandard, _
- IncludeDocProperties:=True, _
- IgnorePrintAreas:=False, _
- OpenAfterPublish:=False
- Dim Nachricht As Object, OutApp As Object
- Dim AWS As String
- Set OutApp = CreateObject("Outlook.Application")
- AWS = strFileName
- 'InitializeOutlook = True
- Set Nachricht = OutApp.CreateItem(0)
- With Nachricht
- .To = "aaa@aa.de"
- 'Empfänger
- .Bcc = "bbb@bb.de"
- 'Blindempfänger
- .Subject = "Test " & "- " & Range("C6") & " - " & Range("V6")
- 'Betreff, Name, Datum
- .Attachments.Add AWS
- .HTMLBody = "Hallo ..., " & "<p>" & "Im Dateianhang findest Du meine ..." & "<p>" & "Danke und viele Grüße " & "<p>" & Range("C6")
- 'Hier wird die HTML Mail erstellt
- .Display
- 'Hier wird die Mail nochmals angezeigt
- End With
- Set OutApp = Nothing
- Set Nachricht = Nothing
- Kill strFileName
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „yatomaha“ ()