Sendmail ohne Outlook.Application

[Andyle]

erstmal vielen Dank @Uwe.

TB funzt bestens.

Nur irgendwie finde ich beim .pdf keinen Fehler.

Wenn ich den Reinen PDF-Code ausführe funzt es

Führe ich den kompletten Code aus, erstellt er auch die .pdf, die allerdings nicht lesbar ist.

Code:

Sub MailsendenPDF_oO()

  Dim AWS As String, wksMail As Worksheet
  Dim mailto, subjekt As String
 
  Set wksMail = Sheets("PDF") 'zu versendendes Blatt
 
  wksMail.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  ThisWorkbook.Path & "\Mails\" & Format(Now, "DD-MM-YYYY") & "_Inventurliste.pdf", Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
  False

  AWS = ThisWorkbook.Path & "\Mails\" & Format(Now, "DD-MM-YYYY") & "_Inventurliste.pdf"

  mailto = Sheets("Einstellungen").Range("D16").Value  '"Mail@mail.de"  für mehrere Adressen trennen mit ; (Semikolon)
  subjekt = "Neue Inventurliste vom " & Format(Now, "DD-MM-YYYY") 'Betreff
  wksMail.Visible = True

  'temporäre Mappe erstellen
  wksMail.Copy

  With ActiveWorkbook
    .SaveAs AWS
    Application.Dialogs(xlDialogSendMail).Show mailto, subjekt
    .Close
  End With

  MsgBox "Die Datei " & """" & Dir(AWS) & """" & " wurde an " & """" & mailto & """" & " per Mail versandt.", vbInformation, "Emailversand"

If [c_Mailsave] Then
Else
Kill AWS 'temporäre Mappe löschen
End If

End Sub

[Kuwer]

Hallo,

wenn Du eine Exceldatei mit der Endung .pdf speicherst, wird es nicht automatisch eine PDF-Datei.
Die PDF-Datei wird ja schon vorher erzeugt, ist aber nur auf der Festplatte, jedoch nicht im Excel geöffnet bzw. aktiv.
Deswegen wird das so mit PDF-Versand nicht funktionieren. Siehe dazu noch mal hier: #6

Gruß, Uwe

[knobbi38]

Hallo,

grundsätzlich gibt es zwei Dinge zu beachten:
1. mit dem Mailto-Protokoll können keine Anhänge verschickt werden - das geht mit TB also schon mal nicht.
2. per Commandlne kann man per TB Mails mit Anhängen verschicken, z.B.

Code:

thunderbird.exe -compose to="info@gmail.com" ,subject="SubjectText" ,body="bodytext" ,attachment='D:\File.txt,D:\File2.txt'

Ansonsten braucht man einen SMTP-Server und eine API, mit der man diesen Server ansprechen kann, z.B. CDO von MS, eine andere Alternative für Outlook für die es eine COM-Schnittstelle gibt oder alternativ einen Dienstleister, bei dem man per REST-API Mails versenden kann.

Ansonsten wird es schwierig.

Gruß
Knobbi38

[Andyle]

Ich teste mit Windowsmail, und da funzt die Anpassung von Uwe bestens.

Nur halt nicht für eine .pdf

Selbst wenn ich diese speichere ist diese unlesbar.

[knobbi38]

Windows Mail ist/war nur für Vista vorbehalten und wird in neueren Windows-Versionen nicht mehr mit ausgeliefert.

[oee]

Sicher ? Gibt es eine neuere Version als 11 ?

[mumpel]

Ja sicher. Windows-Mail wird/wurde durch das "Neue Outlook für Windows" ersetzt, zumindest in Windows 11 24H2.

[oee]

" zumindest in Windows 11 24H2 " ?
Ich habe Windows 11 24H2 und Mail.

[mumpel]

Noch.