Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per Kopfdruck als pdf speichern und Mail erstellen

Forumthread: Per Kopfdruck als pdf speichern und Mail erstellen

Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 13:49:38
Jörg Bergmann
Hallo zusammen,

ich würde nun gerne das aktuelle Blatt per Knopfdruck als pdf speichern und dann per Mail versenden.

Betreff und Empfänger (mehrere) dabei gerne in einer Zelle vorgegeben und somit variabel. Umstellen nach nicht variabel würde ich mir im Fall der Fälle zutrauen. ;)

Für den Speichernamen gerne eine Messagebox in der dieser abgefragt wird.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 16:13:32
Jörg Bergmann
Ich habe mal die Chatgpt genommen. Dabei kommt das unten ersichtliche raus, was schon sehr gut klappt.

Wie kann umbauen, damit der Name auch schon fest eingegeben ist? Ich dachte erst einfach Namen durch array ersetzen und oben einfach Dim name As String zu Dim name As Variant ändern. Klappt aber nicht.:

' Namen abfragen
name = InputBox("Bitte geben Sie den Namen des Empfängers ein:", "Name eingeben")

' E-Mail-Adressen
emailAddresses = Array("xxx@xxx.com")

Hier das Makro:

Sub PDFSpeichernUndVersenden()
Dim folderPath As String
Dim fileName As String
Dim name As String
Dim emailAddresses As Variant
Dim i As Integer

' Festlegen des Speicherorts
folderPath = "W:\"

' PDF speichern
fileName = "Rückstellungsspiegel SUK.pdf"
ThisWorkbook.Sheets("Übersicht").ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
folderPath & fileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

' Namen abfragen
name = InputBox("Bitte geben Sie den Namen des Empfängers ein:", "Name eingeben")

' E-Mail-Adressen
emailAddresses = Array("joerg.bergmann@sanha.com")

' E-Mails senden
For i = LBound(emailAddresses) To UBound(emailAddresses)
SendMailWithAttachment name, emailAddresses(i), folderPath & fileName
Next i
End Sub

Sub SendMailWithAttachment(ByVal name As String, ByVal email As String, ByVal attachmentPath As String)
Dim outlookApp As Object
Dim outlookMail As Object

' Outlook-Instanz erstellen
Set outlookApp = CreateObject("Outlook.Application")
Set outlookMail = outlookApp.CreateItem(0)

' E-Mail-Eigenschaften festlegen
With outlookMail
.To = email
.Subject = "Rückstellungsspiegel SUK"
.Body = "Hallo " & name & "," & vbCr & vbCr & "anbei der Rückstellungsspiegel der SUK." & vbCr & vbCr & "Viele Grüße" & vbCr & "Jörg"
.Attachments.Add attachmentPath
.Send
End With

' Freigeben von Ressourcen
Set outlookMail = Nothing
Set outlookApp = Nothing
End Sub
Anzeige
AW: Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 16:15:31
Jörg Bergmann 
Sub PDFSpeichernUndVersenden()

    Dim folderPath As String

    Dim fileName As String

    Dim name As String

    Dim emailAddresses As Variant

    Dim i As Integer



    ' Festlegen des Speicherorts

    folderPath = "W:\"



    ' PDF speichern

    fileName = "Rückstellungsspiegel SUK.pdf"

    ThisWorkbook.Sheets("Übersicht").ExportAsFixedFormat Type:=xlTypePDF, fileName:= _

        folderPath & fileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False



    ' Namen abfragen

    name = InputBox("Bitte geben Sie den Namen des Empfängers ein:", "Name eingeben")



    ' E-Mail-Adressen

    emailAddresses = Array("joerg.bergmann@sanha.com")



    ' E-Mails senden

    For i = LBound(emailAddresses) To UBound(emailAddresses)

        SendMailWithAttachment name, emailAddresses(i), folderPath & fileName

    Next i

End Sub



Sub SendMailWithAttachment(ByVal name As String, ByVal email As String, ByVal attachmentPath As String)

    Dim outlookApp As Object

    Dim outlookMail As Object



    ' Outlook-Instanz erstellen

    Set outlookApp = CreateObject("Outlook.Application")

    Set outlookMail = outlookApp.CreateItem(0)



    ' E-Mail-Eigenschaften festlegen

    With outlookMail

        .To = email

        .Subject = "Rückstellungsspiegel SUK"

        .Body = "Hallo " & name & "," & vbCr & vbCr & "anbei der Rückstellungsspiegel der SUK." & vbCr & vbCr & "Viele Grüße" & vbCr & "Jörg"

        .Attachments.Add attachmentPath

        .Send

    End With



    ' Freigeben von Ressourcen

    Set outlookMail = Nothing

    Set outlookApp = Nothing

End Sub
Anzeige
AW: Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 16:18:47
schauan
Hallöchen,
Definiere die Adressen als String und nicht als Array. Die beiden setzt du dann mit Semikolon getrennt zusammen.
Im Prinzip Email=Email1 & ";" & Email2

Ein Array bilden geht etwas anders...
AW: Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 16:28:34
Jörg Bergmann
habe ich versucht, aber dann bekomme ich in dem Bereich die Fehlermeldung: "erwartet Datenfeld" 

' E-Mails senden

    For i = LBound(emailAddresses) To UBound(emailAddresses)


 Dim emailAddresses As String

    Dim i As Integer



    ' Festlegen des Speicherorts

    folderPath = "W:\"



    ' PDF speichern

    fileName = "Rückstellungsspiegel SUK.pdf"

    ThisWorkbook.Sheets("Übersicht").ExportAsFixedFormat Type:=xlTypePDF, fileName:= _

        folderPath & fileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False



    ' Namen abfragen

    name = InputBox("Bitte geben Sie den Namen des Empfängers ein:", "Name eingeben")



    ' E-Mail-Adressen

    emailAddresses = "joerg.bergmann@sanha.com"
Anzeige
AW: Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 19:52:53
volti
Hallo ,

abschließend interessehalber hier noch ein Statement zu Deiner Anforderung.

zur Erklärung:

Du kannst so ein Array erstellen, um mehrere eMails nacheinander zu versenden
emailAddresses = Array("joerg.bergmann@sanha.com","Hein.Bloed@sanha.com")

oder auch ein Array aus einem String erstellen

DIM emailAddresses() as string
emailAddresses =Split("joerg.bergmann@sanha.com;Hein.Bloed@sanha.com",";")


Und anschließend die Versendung des Array in einer Schleife bewerkstelligen.
' E-Mails senden
For i = LBound(emailAddresses) To UBound(emailAddresses)
SendMailWithAttachment name, emailAddresses(i), folderPath & fileName
Next i


Wenn Du Deine Adressen oder auch nur eine Adresse in einer Variablen bzw. Feld semikolongetrennt hast, kannst Du mit einer eMail alle Adressaten erreichen.
DIM emailAddresses as string
emailAddresses = "joerg.bergmann@sanha.com;Hein.Bloed@sanha.com"
Bei einer Variablen kannt Du aber nicht die Schleife nutzen, denn die möchte ja ein Array bzw. Datenfeld dafür hernehmen. Daher bekommst Du auch die Fehlermeldung.

Da Du die Inputbox nutzt, um einen Namen abzufragen, willst Du wahrscheinlich nur eine Mail versenden. Da fallen also Array und Schleife weg. Ein Name bei mehreren eMail-Empfängern macht ja auch wenig Sinn.

Ich würde es einfach so oder so ähnlich machen... 
Code:


Sub PDFSpeichernUndVersenden()
  Dim folderPath As String
  Dim fileName As String
  Dim sName As String, sEmpfaenger As String

' Festlegen des Speicherorts
  folderPath = "W:\"

' PDF speichern
  fileName = "Rückstellungsspiegel SUK.pdf"
  ThisWorkbook.Sheets("Übersicht").ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
  folderPath & fileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
  IgnorePrintAreas:=False, OpenAfterPublish:=False

' Namen abfragen
  sName = InputBox("Bitte geben Sie den Namen des Empfängers ein:", "Name eingeben")
  sEmpfaenger = "joerg.bergmann@sanha.com"

 ' eMail erstellen
  With CreateObject("Outlook.Application").CreateItem(0)
      .GetInspector.Display
      .To = sEmpfaenger
      .Subject = "Rückstellungsspiegel SUK"
      .body = "Hallo " & sName & "," & vbCr & vbCr _
            & "anbei der Rückstellungsspiegel der SUK." & vbCr & vbCr _
            & "Viele Grüße" & vbCr & "Jörg" & vbCr & .body
      If Dir$(folderPath & fileName) <> "" Then
         .Attachments.Add folderPath & fileName
      End If
'     .Send
  End With

End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz
Anzeige
;

Forumthreads zu verwandten Themen

Outlook Emails einlesen und löschen
Peter

Ich würde gerne den Outlook Posteingang in Excel einlesen und danach den Outlook Posteingang löschen.
Wie kann so etwas in VBA realisiert werden?
19.08.2008 18:20:00
Thread-ID: 1003019
3 Beiträge
Outlook Email einlesen/löschen
Peter

Ich bin zwar in der Lage Emails von Excel/VBA via Outlook abzusenden.
Jetzt würde ich jedoch gerne via VBA/Excel Emails einlesen, den Header der eingehenden Email auslesen und danach die Email wieder löschen.
Danke für die Unterstützung.
Grüße
Peter
29.08.2008 15:07:44
Thread-ID: 1005850
3 Beiträge
Email versenden Outlook - Problem
Peter

Ich versende via Excel/VBA alle 3 Minuten ein Email.
Nun kommt es ca. 1x am Tag vor, dass Outlook Emails nicht sofort sendet und sich die Emails im Postausgang sammeln bis ich Outlook schließe und wieder öffne.
Danke für die Unterstützung.
Grüße
Peter
29.09.2008 13:58:00
Thread-ID: 1013103
2 Beiträge
Anzeige
Email aus Excel über Outlook versenden
ray

Hallo,
ich plane grad neue Projekte und hab eine Frage, wo ich nur die Antwort aber keinen code brauche.
Ich möchte den Inhalt der Label oder textboxen von ein UserForm an Outlook übergeben und via Outlook versenden.
Dabei soll diese Mail in dem Outlookordner 'gesendete Objekte' e...
02.12.2008 10:35:00
Thread-ID: 1029428
3 Beiträge
Anzeige
Outlook-Mail aus Excel - Statusabfrage
Peter

Hallo,
aus Excel generiere ich Mail-Items mit nachfolgendem Code. Versendet werden diese durch manuelles Betätigen des "Senden"-Buttons. Gibt es eine Art Return-Code? Kann abgefragt werden, ob der "Senden"-"Button gedrückt wurde oder ob das Item ohne Senden geschlossen wurde?
Set MyOutA...
04.12.2008 14:07:27
Thread-ID: 1030167
6 Beiträge
Anzeige
Email über Outlook, Konto ändern
Nico

Hallo!
Ich schicke eine Email über ExcelVBA mit Outlook und dem Standardkonto.
Gibt es eine Möglichkeit die Email nicht über das Standardemailkonto zu verschicken, sondern über ein anderes Konto?
Wie kann ich das Konto vorher festlegen?
Sub EmailVerschickenKINDERSKIKURS() Dim...
16.12.2008 20:16:33
Thread-ID: 1033418
2 Beiträge
eMail aus Outlook in Excel einlesen
Heinzs

Hallo,
ich möchte eine in Outlook in einem bestimmten Ordner angekommene eMail in Excel weiterverarbeiten, d.h. wenn bestimmter Absender und bestimmter Betreff in bestimmten Ordner und bestimmtes Empfangsdatum vorliegt dann soll der Emailbody in die Exceltabelle ans Ende angefügt werden.
21.01.2009 15:36:17
Thread-ID: 1042242
3 Beiträge
Serienmail Outlook
Ilka

Hallo,
ich bräuchte mal wieder eure Hilfe. Ich möchte an einen bestimmten Personenkreis eine Art Serienmail verschicken, zu der jeder einen individuellen Datei-Anhang erhalten soll.
D. h. bei Herrn Müller soll der Anhang A, bei Frau Mayer Anhang B und bei Herr Schmitt Anhang C automati...
27.04.2009 08:15:33
Thread-ID: 1071278
3 Beiträge
Outlook Attachment abspeichern
jogi

Hallo zusammen,
ich möchte in Outlook ein Makro schreiben, dass mir von der E-Mail die Attachments in ein bestimmtes Verzeichnis speichert, jedoch soll an den gespeicherten Dateinamen das Datum der E-Mail drangehängt werden.
Bsp:
Die E-Mail vom 12.05.2009 enthält die Attachments: pa...
13.05.2009 10:04:32
Thread-ID: 1074731
2 Beiträge
Anzeige
Mailversand via Outlook
F.

Hallo
Möchte ein Reminder per Mail an mehrere Personen verschicken. Da ich auf den Geschmack von VBA gekommen bin, habe ich mir den folgenden Code zusammengesucht. Da ich die Sicherheitsabfrage umgehen möchte, habe ich zusätzlichen Code eingefügt.
Es erscheint die Fehlermeldung: Next o...
16.07.2009 15:48:48
Thread-ID: 1089111
7 Beiträge
Outlookmail aus Excel versenden
Peter

Hallo
ich erstelle von Excel aus mit VBA ein neues Mail in Outlook und versende es
Auszug:
Text = "Hier die Dateien"
Bereich = Sheets("Basis").Range("F19:H23") '? in Text einfügen
Sheets("Basis").Range("F19:H23").Copy '? in Text einfügen
Se...
07.10.2009 09:33:30
Thread-ID: 1107734
2 Beiträge
Email mit Anhang versenden ueber outlook
abu

Hallo Zusammen,
habe folgenden Code gefunden und wuerde den gerne fuer meine Beduerfnisse umstricken. Leider bekomme ich immer eine Fehlermeldung bei dieser Zeile:
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
Wuerde mich ueber hilfe sehr freuen...
16.12.2009 13:28:45
Thread-ID: 1122907
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige