Seriendruck Pläne per Mail verschicken

.. das wohl mächtigste Werkzeug in Bill Gates' Büro-Sippe. Ob reine Formeln, PowerQuery oder VBA. Hier bleiben kaum Wünsche unerfüllt.
Hobbit
Beiträge: 51
Registriert: 12. Aug 2024, 08:41
Hat sich bedankt: 1 Mal
Danksagung erhalten: 6 Mal
Kontaktdaten:

Seriendruck Pläne per Mail verschicken

#1

Beitrag von Hobbit »

Moin,
ich habe eine Datei wo ich per Doppelklick in A3 die Einzelpläne ausgedruckt bekomme.
Kann man das auch so machen, wenn ich eine Mail hinterlegt habe, das die Per Mail rausgeht und nicht ausgedruckt wird?
Oder muss ich für den Mailversand ein Separates Blatt erstellen?
Im Anhang habe ich mal eine Datei angehängt.
Vielen dank für die Mühe.

MFG Jens
Dateianhänge
Test Email druck.xlsm
(35.72 KiB) Noch nie heruntergeladen
MFG Jens
Benutzeravatar
thowe
Beiträge: 196
Registriert: 12. Sep 2022, 16:57
Hat sich bedankt: 78 Mal
Danksagung erhalten: 67 Mal
Kontaktdaten:

Re: Seriendruck Pläne per Mail verschicken

#2

Beitrag von thowe »

Screenshot Menü zur Auswahl horizontal zentrieren
Screenshot Menü zur Auswahl horizontal zentrieren
Screenshot 2024-08-13 104353.png (19.89 KiB) 3662 mal betrachtet
Hallo Jens,

Danke für deine Frage!

Es ist nicht der beste Weg Zellen zu verbinden. Wie beispielsweise bei Dir von A3:E3.
Wenn du horizontal zentrieren möchtest über eine bestimmten Bereich, dann markiere diesen Bereich (zB A3:E3)
Kontextmenü (rechte Maustaste) > Zellen Formatieren > Ausrichtung > "Horizontal zentrieren"

Dannkannst du direkt die Zelle ansprechen, indem der Wert steht (also in deinem Fall "A3") -> macht meines Erachtens das ganze übersichtlicher.

Zu deiner Frage:

Welchen Mail-Client verwendest du?

Mail (gibt es den noch?), Outlook, Thunderbird.
Soll die zu versendende E-Mail Adresse - zusätzlich/optional - ausgewählt werden können?
Ich vermute es soll im Bodytext nur "Plain-Text" stehen...

LG thowe
Benutzeravatar
d'r Bastler
Beiträge: 670
Registriert: 29. Aug 2022, 13:20
Hat sich bedankt: 175 Mal
Danksagung erhalten: 90 Mal

Re: Seriendruck Pläne per Mail verschicken

#3

Beitrag von d'r Bastler »

Moin Jens,

schau Dir mal diesen Thread an (insbesonders auch die Beschreibung). Ich denke auf der Grundlage können wir Dein Thema schnell lösen.

lg
d'r Bastler von den VBAsteleien.de
Win 10 + Office 2019 & Win11 + Office 2021 + Visio 2019 pro & macOS.X15 + Office2019pro & Android12 & XL365
Hobbit
Beiträge: 51
Registriert: 12. Aug 2024, 08:41
Hat sich bedankt: 1 Mal
Danksagung erhalten: 6 Mal
Kontaktdaten:

Re: Seriendruck Pläne per Mail verschicken

#4

Beitrag von Hobbit »

thowe hat geschrieben: 13. Aug 2024, 10:50 Screenshot 2024-08-13 104353.pngHallo Jens,

Danke für deine Frage!

Es ist nicht der beste Weg Zellen zu verbinden. Wie beispielsweise bei Dir von A3:E3.
Wenn du horizontal zentrieren möchtest über eine bestimmten Bereich, dann markiere diesen Bereich (zB A3:E3)
Kontextmenü (rechte Maustaste) > Zellen Formatieren > Ausrichtung > "Horizontal zentrieren"

Dannkannst du direkt die Zelle ansprechen, indem der Wert steht (also in deinem Fall "A3") -> macht meines Erachtens das ganze übersichtlicher.

Zu deiner Frage:

Welchen Mail-Client verwendest du?

Mail (gibt es den noch?), Outlook, Thunderbird.
Soll die zu versendende E-Mail Adresse - zusätzlich/optional - ausgewählt werden können?
Ich vermute es soll im Bodytext nur "Plain-Text" stehen...

LG thowe

Moin,

IBM Notes.
MFG Jens
Benutzeravatar
d'r Bastler
Beiträge: 670
Registriert: 29. Aug 2022, 13:20
Hat sich bedankt: 175 Mal
Danksagung erhalten: 90 Mal

Re: Seriendruck Pläne per Mail verschicken

#5

Beitrag von d'r Bastler »

Moin Hobbit,
IBM Lotus ... damit dürfte meine theDistributor-Idee vermutlich ausscheiden. Sie ist MS-Office/Outlook-basiert.
Mangels Lotus-Client kann ich meinen einzigen Ansatz, statt Outlook eben IBM als Application zu bemühen, nicht testen.
lg
d'r Bastler von den VBAsteleien.de
Win 10 + Office 2019 & Win11 + Office 2021 + Visio 2019 pro & macOS.X15 + Office2019pro & Android12 & XL365
Benutzeravatar
thowe
Beiträge: 196
Registriert: 12. Sep 2022, 16:57
Hat sich bedankt: 78 Mal
Danksagung erhalten: 67 Mal
Kontaktdaten:

Re: Seriendruck Pläne per Mail verschicken

#6

Beitrag von thowe »

Guten Morgen Jens,

es hat ein wenig gedauert, bis - auch - ich antworte.

Ich habe leider auch keinen IBM Notes Client. Daher kann ich nicht testen.

Vielleicht bringt dich dieser Link weiter. (Vor allem der darin ersichtlich Link zu stackoverflow...)

https://www.herber.de/forum/archiv/1860 ... t_VBA.html

LG thowe
Folgende Benutzer bedankten sich beim Autor thowe für den Beitrag:
d'r Bastler
Paul1206
Beiträge: 11
Registriert: 29. Aug 2022, 20:22
Hat sich bedankt: 2 Mal
Danksagung erhalten: 10 Mal

Re: Seriendruck Pläne per Mail verschicken

#7

Beitrag von Paul1206 »

Hallo Jens,

teste mal ob das so klappt:

Code: Alles auswählen

Sub EinstzplanPerMailEinzeln()
    Dim mailBetreff$, mailBody$, mailAdresse$, mailCC$, mailBCC$, mailAnhang$
    mailAdresse = "hugo.frantz@test.de"
    mailBetreff = "Nur ein Hallo"
    mailBody = "Hallo Hugo..."
    mailAnhang = ThisWorkbook.Path & "\" & ThisWorkbook.FullName
    SendEmailStringCCAttach mailBetreff, mailBody, mailAdresse, , , mailAnhang
End Sub

' entnommen von https://github.com/PatrickCarriello/LotusNotes-VBA-Email-Sender/blob/master/IBMNotesVBASender.bas
' Sending with attachment
Sub SendEmailStringCCAttach(subject As String, body As String, emails As String, Optional emailCC As String = "", Optional emailBCC As String = "", Optional attachment As String = "")

    Dim emailsendto() As String
    Dim counter As Integer
    Dim matriz
    Dim notesdb, notesdoc, notesrtf, notessession As Object
    Set notessession = CreateObject("Notes.Notessession")
    Set notesdb = notessession.GetDatabase("", "")
    notesdb.OpenMail
    Set notesdoc = notesdb.CreateDocument
    'Uncomment next line to specify the sender
    'Can also be a parameter of the function
    'notesdoc.from = "sender@sender.com"
    notesdoc.subject = subject
    
    matriz = Split(emails, ",")
    ReDim emailsendto(UBound(matriz))
    For counter = 0 To UBound(matriz)
        If InStr(emails, matriz(counter)) > 0 Then
            emailsendto(counter) = matriz(counter)
        End If
    Next
    
    notesdoc.SendTo = emailsendto
    If Not emailCC = "" Then notesdoc.CopyTo = emailCC
    If Not emailBCC = "" Then notesdoc.BlindCopyTo = emailBCC
    
    'Reading attachment file
    If Not attachment = "" Then
        Dim attachme As Object
        Dim embedobj As Object
        Set attachme = notesdoc.CreateRichTextItem("Attachment")
        Set embedobj = attachme.EmbedObject(1454, "", attachment, "Attachment")
    End If
    
    Set notesrtf = notesdoc.CreateRichTextItem("body")
    notesrtf.appendText body
    'Save message on sent items
    notesdoc.SaveMessageOnSend = True
    notesdoc.send False
    
    'Clean up
    Set notesrtf = Nothing
    Set notesdoc = Nothing
    Set notessession = Nothing
    Set notesdb = Nothing
    
End Sub
Wie der Prozeduraufruf anzulegen ist, siehst du am Ende der Sub: EinstzplanPerMailEinzeln
Da sich IBM Notes sich nicht mehr aus dem Netz via funktionierenden Download beschaffen lässt, konnte ich die Prozedur von PatrickCarriello auch nicht testen.

Gruß Uwe
Folgende Benutzer bedankten sich beim Autor Paul1206 für den Beitrag (Insgesamt 2):
d'r Bastler, thowe
Hobbit
Beiträge: 51
Registriert: 12. Aug 2024, 08:41
Hat sich bedankt: 1 Mal
Danksagung erhalten: 6 Mal
Kontaktdaten:

Re: Seriendruck Pläne per Mail verschicken

#8

Beitrag von Hobbit »

Moin,
vielen dank für die Antwort.
Er zeigt mir den Fehler an: File H:\H:\Test Email druck.xlsm not found.
Was kann das sein?

Ich trage ja in Spalte P die Mail Adressen ein.
Wenn ich dort drauf klicke geht ja das Mail Programm auf.
Gibt es die Möglichkeit das gleich die Datei da mit angehängt wird, idealer weise als PDF?

Vielen dank für die Mühe.

MFG Hobbit
MFG Jens
xlKing
Beiträge: 30
Registriert: 30. Mai 2024, 19:42
Hat sich bedankt: 2 Mal
Danksagung erhalten: 34 Mal
Kontaktdaten:

Re: Seriendruck Pläne per Mail verschicken

#9

Beitrag von xlKing »

Tja, was kann das wohl sein? ;)
Das sagt dir doch schon die Fehlermeldung. zweimal das Laufwerk? Muss nicht sein. Der Grund dürfte in der Zeile ThisWorkbook.Path & "\" & ThisWorkbook.FullName liegen. Denn FullName enhält die Datei inkl. des gesamten Pfades. zu dem du nochmals den Pfad einzeln vorne anfügst.

Nimm statt Fullname nur Name oder lass path weg.

Gruß Mr. K. :)
Folgende Benutzer bedankten sich beim Autor xlKing für den Beitrag:
thowe
Benutzeravatar
thowe
Beiträge: 196
Registriert: 12. Sep 2022, 16:57
Hat sich bedankt: 78 Mal
Danksagung erhalten: 67 Mal
Kontaktdaten:

Re: Seriendruck Pläne per Mail verschicken

#10

Beitrag von thowe »

Hallo Hobbit!

Zu deinem ersten Problem, hat dir xlKing bereits die wesentlichen Tipps geliefert.

Gib im Direktfenster [STRG] + [G], den Befehl:

Code: Alles auswählen

?ThisWorkbook.Path & "\" & ThisWorkbook.FullName
ein. Das "?" (Fragezeichen) steht für Debug.Print.
-> du bekommst direkt das Ergebnis dieses Codeschnippsel angezeigt.

Im Link (der in deinem Code enthalten ist) - https://github.com/PatrickCarriello/Lot ... Sender.bas - findest du in der Funktion in Zeile 112, die Möglichkeit ein Attachement anzufügen.
Genau wird dies ab Zeile 139 gemacht.

Auch in der Funktion ab Zeile 178, genau ab Zeile 217 wird - in der selben Form - das Attachement hinzugefügt.

Versuche das selbst zu implementieren. Da hast du den besten Lerneffekt

Gehe im Einzel-Schritt Modus [F8] im Direkt Fenster [STRG] + [G] deinen Code und sehe dir auch im Lokalfenster (Klicke hier in der Menüleiste auf Ansicht > Lokal-Fenster) die einzelnen Parameter an.

Wenn etwas nicht so läuft, wie du es dir vorstellst, dann stelle bitte konkret die diesbezügliche Frage. Es werdem dir sicher weitere wertvolle Tipps und Hilfestellungen angedeihen.

Viel Spaß beim VBAsteln und vor allem Freude & Erfolg!

lg thowe
Folgende Benutzer bedankten sich beim Autor thowe für den Beitrag:
d'r Bastler
Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste