Office: Schleife einbauen

Hallo,

kann es sein, dass ein PDF mit dem Namen schon existiert?

 

Nein Nepumuk,
das habe ich mittlerweile gegriffen, immer die erzeugten Dateien löschen, bevor ein neuer Test erfolgt.

 

Hallo,

dann kann ich das nicht nachvollziehen.

 

Hallo Nepumuk,

Problem gelöst, bzw. es hat sich von allein gelöst. Datei schließen - Datei öffnen - und schon ist alles o.k.

Ich bin wahrscheinlich fertig mit meinem Projekt, es läuft und ich bin sogar etwas stolz auf mich. Auch wenn ich weiß, dir gebührt ein großer Anteil des Erfolges.
Klasse, was du drauf hast und interessant, wenn man auf Beiträge von dir aus dem Jahr 2015 stößt!

Also nochmals danke!

Der Miner

 

Hallo Nepumuk,
ich habe leider die Nerven nicht, um den Wunsch meiner Kollegen selbst abzuarbeiten.
Für dich bestimmt Spielerei.
Es soll immer eine identische zweite pdf Datei an jede Mail angehangen werden.
Pfad: C:UsersDesktop, Name: Erklär-Datei.pdf
Wo muß welche Zeile in meine Datei, dass dies erfolgt?

 

Hallo,

einfach ein zweites mal:

.Attachments.Add ...

 

Habe ich getan, aber da kommt dauern eine Fehlermeldung

.GetInspector.Display 'neu Miner
olOldbody = .htmlBody 'neu Miner

Call .Attachments.Add(DateiName) 'Anhang
.Attachments.Add "C:UsersMinerDesktop.Erklär-Datei.pdf" 'neu Miner
Call .send 'Senden
' Call .Display 'Anzeigen
End With

Set objMail = Nothing

Next

Set objOutlook = Nothing

 

Hallo,

und die lautet? Bitte Nummer und Text!

 

Laufzeitfehler '-21470247773 (8007007B)':
Datei- oder Ordnernummer ist ungültig

Ich habe von einer anderen Exceldatei den Pfad kopiert und in das Makro eingegeben, auch hier das gleiche Problem,
die Zeile mit dem Pfad ist gelb markiert mit dem gelben Pfeil

 

Hallo,

kann es sein dass sich dein Desktop auf OneDrive befindet? Dann lautet der Pfad nämlich:

.Attachments.Add "C:\Users\Miner\OneDrive\Desktop\Erklär-Datei.pdf"

Zudem hast du im Pfad nach Desktop einen Punkt der da nicht hingehört.

 

es war der Punkt!

 

Hallo,

das Mail versenden klappt, die pfd werden gespeichert, ich sehe im Gegensatz zum VBA kein Problem.

1.) Die folgenden Zeilen werden jedoch als fehlerhaft markiert:
Range("A1:h24").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Bei der Zeile "IncludeDocProperties:=True ... ist der gelbe Pfeil".
Der Code lief vorher gut, ich weiß nicht was ich verändert habe?

2.) Kann ich die gesendete Mail incl. der Anhänge in einem Dateiordner spreichern lassen. Wie muß der Code aussehen und wo muß ich die Zeilen einfügen (vor dem "End With"?)?

3.) Wenn ich die Subjekt-Zeile wie folgt ändere, zeigt sie den Text und den Inhalt der Zelle M1 an, oder?
.Subject = "Ankündigung des Liefertermines, " & Range("M1").Text 'Betreff

 

Hallo,

Zu 1. Ich kann keinen Fehler mit der Zeile auslösen. Die läuft einwandfrei durch.

Zu 2. So:

With objMail
GetInspector.Display 'neu Miner
olOldbody = .htmlBody 'neu Miner

Call .Attachments.Add(DateiName) 'Anhang
.Attachments.Add "C:\Users\Miner\Desktop\Erklär-Datei.pdf" 'neu Miner

Call SaveAs("H:\210217\Test.msg", 3)

Call .send 'Senden
' Call .Display 'Anzeigen
End With

Set objMail = Nothing


Zu 3. Ja.

 

Hallo,

ich habe gerade gesehen, dass ich da noch etwas eingebaut habe, vielleicht liegt da der Fehler. Der Code lautet:

Public Sub Mail_versenden_pdf_speichern()

Const DateiPfad = "U:MinerProgramierung"


Dim DateiName As String
Dim lngRow As Long
Dim objOutlook As Object
Dim objMail As Object

Dim olApp As Object 'neu Miner
Dim AWS As String 'neu Miner
Dim olOldbody As String 'neu Miner

Set objOutlook = CreateObject(Class:="Outlook.Application")

For lngRow = 1 To Cells(Rows.Count, 14).End(xlUp).Row

Cells(1, 13).Value = Cells(lngRow, 14).Value

ActiveSheet.Calculate

DateiName = DateiPfad & Range("M1").Text & ".pdf"

Range("A1:h24").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Set objMail = objOutlook.CreateItem(0)

With objMail
.To = Range("O1").Text 'Mailadresse
.Subject = Range("M1").Text 'Betreff

.GetInspector.Display 'neu Miner
olOldbody = .htmlBody 'neu Miner

Call .Attachments.Add(DateiName) 'Anhang
.Attachments.Add "U:MinerErklär-Datei.pdf" 'neu Miner




Call .send 'Anzeigen
' Call .Send 'direkt senden
End With

Set objMail = Nothing

Next

Set objOutlook = Nothing

Sheets("telefonische Avisierungen").Select

End Sub

 

Hallo,

sieht dein Pfad so aus?

Const DateiPfad = "U:\Miner\Programierung\"

Was steht in M1?