Hallo, ich würde gerne eine Rechnung mit einem Makro erstellen. Soweit klappt das auch und die Mail öffnet sich auch, aber diese wird nicht als Anhang hinzugefügt. Ich komme leider nicht drauf. Ich denke, es liegt daran, dass er die Datei nicht findet, aber ich wüsste keinen Lösungsansatz. Hier der Code:
Dim Result As VbMsgBoxResult
Sub RechnungsnrUndDrucken()
Sheets("Rechnung_Video").Select
[D15] = [D15] + 1 'Rechnungsnummer 1 hochzählen
Dim sCC As String
Dim sName As String
Dim sText As String
Dim sObject As String
Dim sCompany As String
Dim sRefNr As String
Dim sTempFileName As String
If (CStr(ThisWorkbook.ActiveSheet.Name) = "Rechnung") Then
Result = MsgBox("Rechnung fertig?", vbApplicationModal Or vbQuestion Or vbYesNo)
If Result = vbNo Then Exit Sub
End If
Const DateiPfad = "C:\Temp\"
Dim DateiName As String
DateiName = DateiPfad & Range("C15") & Range("D15") & ".pdf"
Range("A1:F54").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, 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
.Subject = "" & Range("A1") & "_" & Range("C15") & Range("D15")
.GetInspector.display
'.Attachments.Add ("C:\Temp\" & Range("C15") & Range("D15") & ".pdf")
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
