Software & Apps

Software und Apps sind aus unserem Alltag nicht mehr wegzudenken; von Musik- und Videobearbeitung, Antiviren-Tools, VPN-Clients bis hin zu Office und gewissen Alternativen - hier dreht sich alles um Software & Apps für Deinen PC.
67.857 Beiträge
wie behebe ich diesen fehler?

Hallo!

Kann mir jemand helfen diese Fehler zu beheben?

FEHLER 1 :Traceback (most recent call last):

 File "C:\Users\arrou\OneDrive\Desktop\cheese\für acc\tmmail\main.py", line 37, in <module>

class mailtm_gui(ctk.CTk):

Fehler 2 :  File "C:\Users\arrou\OneDrive\Desktop\cheese\für acc\tmmail\main.py", line 59, in mailtm_gui

  knopf = ctk.CTkButton(main, text="n", command=neum())

FEHLER 3 :  File "C:\Users\arrou\OneDrive\Desktop\cheese\für acc\tmmail\main.py", line 56, in neum

  mail_body = ctk.CTkEntry(mail_window, placeholder_text='Subject: ' + message['subject'] + '\nBody: ' + (message['text'] if message['text'] else message['html']), width=900, font=('Helvetica', 20))

TypeError: 'module' object is not subscriptable

import customtkinter as ctk
from mailtm import *
from mailtm import message


def listener(message):
    print("\nSubject: " + message['subject'] + str(listener))
    print("Content: " + message['text'] if message['text'] else message['html'] + str(listener))


test = Email()
print("\nDomain: " + test.domain)

test.register()
print("\nEmail Adress: " + str(test.address))


test.start(listener, interval=3)
print("\nHab Sabr.....")


main = ctk.CTk()
main.geometry("500x320")
main.title("Temp mail By Amjn")


emaila = ctk.CTkEntry(main, placeholder_text="         " + test.address, width=900, font=("Helvetica", 20))
emaila.configure(state="readonly")
emaila._corner_radius = 10
emaila.pack()


Copyt = ctk.CTkLabel(main, text="Copy Email", font=("Helvetica", 20))
Copyt.pack()


class mailtm_gui(ctk.CTk):
    def __init__(self):
        ctk.CTk.__init__(self)
        self.geometry('500x320')
        self.title('Temp mail By Amjn')
        listener = Email()
        listener.register()
        emaila = ctk.CTkEntry(self, placeholder_text=listener.address, width=900, font=('Helvetica', 20))
        emaila.configure(state='readonly')
        emaila._corner_radius = 10
        emaila.pack()
        listener.start(listener, interval=3)

    def neum():
        mail_window = ctk.CTkToplevel()
        mail_window.title("amjs tm by mailtm")
        mail_window.geometry('500x320')
        mail_window.corner_radius = 30
        mail_window.resizable(width=True, height=True)
        mail_body = ctk.CTkEntry(mail_window, placeholder_text='Subject: ' + message['subject'] + '\nBody: ' + (message['text'] if message['text'] else message['html']), width=900, font=('Helvetica', 20))
        mail_body.pack()

    knopf = ctk.CTkButton(main, text="n", command=neum())


main.mainloop()

Ask Me Anything: Blickwechsel

Du stellst die Fragen, ein außergewöhnlicher Nutzer antwortet! Begegne mit Deinen Fragen anderen Menschen hautnah und persönlich.
VBA Alle bis auf 2 Dokumente schliessen?

Hallo ihr Lieben

Ich habe mal wieder eine Frage zu VBA. Der untenstehende Code soll mehrere Dokumente speichern und drucken, bis eine Zelle leer ist. Soweit so gut. Das klappt. Was ich jedoch nicht hinkriege, ist, dass er mir danach alle Dokumente bis auf "Analysedaten" und "Kunden" wieder schliesst. Also bis "Loop" stimmt alles und funktioniert, aber danach nicht mehr. Oder müsste ich das Dokumenten-Schliessen vor dem Loop hinnehmen? Wohl kaum, weil dann schliesst er mir immer wieder das offene Dokument anstatt am Schluss alle zu löschen.

Der VBA "Schliessen" in sich (ohne das vorher) würde funktionieren, wenn ich das *Or wkb.Name = "Kunden.xlsx"* rausnehme und dann im Anschluss sage, er muss "Kunden.xlsl" wieder öffnen.

Sub Schliessen

  Dim wkb As Workbook

  For Each wkb In Workbooks

   If Not wkb.Name = "2_Analysedaten_Frühling.xlsm" Then

     wkb.Close savechanges:=False

   End If

  Next wkb

'

Workbooks.Open "D:\WKS\1_Grunddaten\1_D_Kunden.xlsx"

In Kombination mit dem hier funktioniert es aber nicht:

Sub Ganzer_Tag_S1_Speichern_Drucken()

'

Do

If ActiveCell.Offset(0, 0) <> "" Then

ActiveCell.Copy

Workbooks.Open "Rapport1.xlsx"

End If

'

Range("BQ11").PasteSpecial

Range("BR11").Select

  Selection.Copy

  Range("BQ11").Select

  Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

    SkipBlanks:=False, Transpose:=False

  Application.CutCopyMode = False

'

Dim Kanton As String

Dim KdNr As String

Dim Datum As String

Dim Name As String

Kanton = ActiveSheet.Range("BM1").Text

KdNr = ActiveSheet.Range("BQ11").Text

Datum = ActiveSheet.Range("X28")

Name = ActiveSheet.Range("L5")

ActiveWorkbook.SaveAs Filename:="D:\WKS\2_Aktuelles Jahr\Rapporte\Kundenrapporte\" & Kanton & "_" & Format(Datum, "yymmdd") & "_" & Format(KdNr, "000") & "_" & Name & ".xls"

ActiveSheet.ExportAsFixedFormat Type:=TypePDF, Quality:=Qualitylow, From:=1, To:=1, Filename:="D:\WKS\2_Aktuelles Jahr\Rapporte\Kundenrapporte\" & Kanton & "_" & Format(Datum, "yymmdd") & "_" & Format(KdNr, "000") & "_" & Name & ".pdf"

'

'ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1

'

Workbooks.Open "Analysedaten.xlsm"

'

Else

Exit Sub

'

End If

'

ActiveCell.Offset(1, 0).Select

'

Loop

'

  Dim wkb As Workbook

  For Each wkb In Workbooks

   If Not wkb.Name = "Analysedaten.xlsm" Or wkb.Name = "Kunden.xlsm" Then

     wkb.Close savechanges:=False

   End If

  Next wkb

'

Workbooks.Open "D:\WKS\2_Aktuelles Jahr\Rapporte\2_Analysedaten_Frühling.xlsm"

'

End Sub

Kann mir da jemand helfen? Also:
- Warum schliesst er mir die Dokumente nicht, wenn ich das Makro starte?

-Wie kann ich alle Dokumente schliessen BIS AUF "Kunden.xlsx" und "Analysedaten.xlsm"?

Danke im Voraus für eure Antworten!

Ask Me Anything: Themenspecials

Im gutefrage Themenspecial beantworten Verbände, Organisationen und Personen des öffentlichen Lebens Deine Fragen zu aktuellen Themen.