Seriendruck Pläne per Mail verschicken

[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

[thowe]

Screenshot Menü zur Auswahl horizontal zentrieren

Screenshot 2024-08-13 104353.png (19.89 KiB) 3730 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

[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

[Hobbit]

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.

[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

[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

[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

[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

[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.

[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