per E-Mail als Pdf senden

Moderator: ModerationP

per E-Mail als Pdf senden

Beitragvon Mozzik » 06. Aug 2018, 14:25

Hallo,

ich versende mit folgendem Code mein Excel-File als PDF und bis heute hat es immer funktioniert.

Seit vorhin bekomme ich die Fehlermeldung:

Die Datei kann nicht gefunden werden. Überprüfen Sie den Pfad oder den Dateinamen - wie gesagt habe ich nichts geändert

Code: Alles auswählen
Sub EMailsenden()
Dim objOutlook As Object
Dim strSignature As String
Dim strDateiname As String
   
strDateiname = 'ThisWorkbook.FullName & ".pdf"
   
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDateiname, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
       
Set objOutlook = CreateObject("Outlook.Application")
With objOutlook.CreateItem(0)
.GetInspector.Display 'Signatur abfragen
strSignature = .Body 'Signatur zwischenspeichern
.To = "...@..."
'.Cc =
'.Bcc =
.Subject = "Packliste"
.Body = "Hallo zusammen," & Chr(13) & Chr(13) & "anbei die o.g. Packliste" & Chr(13) & Chr(13) & "Bei Fragen einfach melden" & Chr(13) & Chr(13) & "Grüße" & strSignature 'Signatur wieder einfügen
.attachments.Add strDateiname
'Mail anzeigen
'.Display
'mit dem folgenden Befehl kann direkt gesendet werden:
.send
Kill strDateiname
End With
End Sub


ab hier bekomme ich Probleme
[code.attachments.Add strDateiname][/code]

VG
Matze
Mozzik
 

Re: per E-Mail als Pdf senden

Beitragvon Mozzik » 06. Aug 2018, 14:32

ich habe es gerade mit einem Standardcode aus dem Netz versucht

Code: Alles auswählen
Sub sendMail()
Dim mePDFD As String
Dim MyOutApp As Object, MyMessage As Object
mePDFD = ThisWorkbook.Path & "\testPDF.pdf"
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
    With MyMessage
        .To = "...@..."
        .Subject = "hier ist die Test PDF Datei" 'Betreffzeile
        .body = "geht doch!"
        .Attachments.Add mePDFD
        .Display
        '.Send
        Kill mePDFD
    End With
    Set MyOutApp = Nothing
    Set MyMessage = Nothing
End Sub


aber auch hier dieselbe Meldung.
Mozzik
 

Re: per E-Mail als Pdf senden

Beitragvon MisterBurns » 06. Aug 2018, 14:38

Das wundert mich nicht, denn schließlich ist der Dateiname auskommentiert, die Variable strDateiname enthält also nichts.

Code: Alles auswählen
strDateiname = 'ThisWorkbook.FullName & ".pdf"
Schöne Grüße
Berni
MisterBurns
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 623
Registriert: 28. Mär 2018, 13:13

Re: per E-Mail als Pdf senden

Beitragvon DerHoepp » 06. Aug 2018, 15:44

Moin,

in ergänzung zu Berni:
Beim zweiten code speicherst du nix in der PDF-Datei sondern übergibst nur einen Dateinamen. Wenn es die Datei nicht gibt, gibt es einen Fehler.

Viele Grüße
derHöpp
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 7262
Registriert: 14. Mai 2013, 11:08

Re: per E-Mail als Pdf senden

Beitragvon losgehts_offline » 07. Aug 2018, 07:22

Ich weiß, bei der Hitze ist es schwer, aber dennoch bei Copy & Paste bitte immer Gehirn anschalten und jede Zeile nachvollziehen und verstehen.

Wenn du einkaufen gehst, schnappst du dir ja auch nicht den Einkaufswagen, den jemand anderes gefüllt hat, und gehst damit zu Kasse und kaufst den Inhalt einfach so - ohne zu begutachten, ob das Zeug deinen Wünschen entspricht.

Grüße, Ulrich
losgehts_offline
 


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: Andreas1963, MisterBurns und 19 Gäste