AW: Outlook VBA
11.02.2021 14:40:01
leito
ich habe noch ein Problem Nepumuk und bitte um deine weitere Hilfe:
Jetzt habe ich erste VBA erziehlt und das ganz funktioniert ganz gut.
ABER:
Das was ich im Outlook brauche habe ich in der "K" Spalte hinterlegt.
Wenn ich jetzt in meiner Tabellen Range Zeilen hinzufüge verschiebt es mir die K Spalten und dann funktioniert das ganze nicht mehr.
Wie kann ich die Spalte "K" in das Tabellenblatt 2 "auslagern" und wie spreche ich dann das Tabellenblatt 2 im Code an, damit die Sache mit dem Outlook wieder funktioniert.
Ich hoffe ich habe mich einigermaßen verständlich ausgedruckt.
Hier mein Code:
Option Explicit
Sub PDF_und_Senden()
Dim DateiName As String
DateiName = Range("K6") & ".pdf"
Range("A1:D118").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Dim Outlookapp As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Set Outlookapp = CreateObject("Outlook.application")
Set OutlookMailItem = Outlookapp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.ReadReceiptRequested = True
.To = Range("K16")
.Subject = Range("K17")
.Body = Range("K120")
myAttachments.Add DateiName
.Display
End With
Set Outlookapp = Nothing
Set OutlookMailItem = Nothing
End Sub