TB Portable 2 mal starten

Hallo,

mit Thunderbird-Portable verwendest du leider ein nicht dokumentiertes Porogramm. Es ist also vom Programmierer abhängig (und damit unklar), welche Kommandozeilenparameter (wie z.B. "-no-remote") überhaupt verarbeitet werden.

Poste doch bitte mal den Teil des VBA-Makros, der Thunderbird aufruft / die E-Mail erstellt. Höchstwahrscheinlich könnte ihn dir so umschreiben, dass er mit dem normalen Thunderbird zusammen arbeitet. Du könntest dann ausprobieren ob das dann auch mit TBPortable klappt.
Beim Posten den VBA-Code bitte in code-Tags setzen: [ code ] VBA-Code [/code](ohne Leerzeichen zwischen den Klammern und dem Wort "code".

Wieso soll eigentlich eine zweite Instanz geöffnet werden?

Grüße, Ulrich

nö, wieso denn auslachen. Evtl. haben sich unsere Posts überschnitten: hast du meinen obigen Post gelesen?

Um hier sachlich weiter zu kommen fehlen verschiedene Informationen:
1. welchen Thunderbirdportable verwendest du (es gibt verschiedene)?
2. wie versuchst du, eine E-Mail zu versenden (es gibt zwei mir bekannte Methoden und evtl. noch mehr)?
3. wieso verwendest du Thunderbird-Portable (sehr viel einfacher wäre das u.a. mit CDO oder blat.exe ist auch für solche Zwecke programmiert)?

Zitat

Zum Thema gefährlichkeit.
Mit geht es nicht darum das Programm zwei mal geöffnet zu haben (würde ja mit gleichem Profil auch keinerlei Sinn ergeben).

du schreibst eingangs, dass du eine zweite Instanz geöffnet haben möchtest. Dann greifen beide Instanzen auf das selbe Profil zu. Es gibt nicht "eine kleine Instanz, die nur ein Verfassensfenster benutzt" also ist das schon "gefährlich".

Was hältst du von folgender völlig anderer Vorgehensweise:
Installiere einfach einen zweiten Thunderbird-Portable auf deinem Stick mit einem eigenen Profil. Dieser ist ausschließlich für das Versenden mit Excel da. Dieses Profil enthält nichts außer den Angaben, die es benötigt um eine E-Mail zu versenden (smtp-Server Einstellungen). Dieser Thunderbird kann also von Excel geöffnet werden, du sendest und schließt ihn wieder. Ganz unabhängig vom anderen Thunderbird-Portable.

Ich persönlich empfehle dir CDO oder blat.exe.
Mein Favourit wäre in diesem Fall CDO. Aber ich meine mich zu erinnern, dass CDO nicht immer auf allen Installationen funktioniert (hat?). Falls du also nicht die Möglichkeit hast, das zu testen, dann würde ich zu blat.exe greifen.

Grüße, Ulrich

Der Aufruf eines installierten Mailprogramms mittels --compose sollte auch funktionieren, wenn Thunderbird bereits läuft. Muss also an der portablen Fassung liegen.

Nur so ein Gedanke: wenn Thunderbird nicht zwingend erforderlich ist und (!) auf dem Rechner bereits ein Thunderbird mit dem korrekten Konto installiert ist, könnte man ja auch einfach einen mailto-Link generieren, dann startet das auf dem System installierte Mailprogramm. Je nach Anwendung ist das eventuell schöner.

PS: das --no-remote funktioniert durchaus auch mit Thunderbird (der installierten Fassung, keine Ahnung was die portable verändert / durchreicht), aber natürlich darf jedes Profil dennoch nur einmal geöffnet werden. Ist auch bei Firefox so. Ein "thunderbird --no-remote -P profilname" kann daher z.B. verwendet werden, um ein alternatives Profil zusätzlich zu starten.

Zitat von smurfsmurfsmurf

Wie starte ich denn meinen portablen TB mit "-no-remote -P sendprofil?

Hängt von deinem portablen Thunderbird ab, wie gesagt, da kenne ich mich nicht aus. Ist aber aus meiner Sicht keine Lösung (ich wollte die Kommentare zu --no-remote lediglich vervollständigen), da für jede einzelne Mail ein komplett neues Profil angelegt werden müsste. Technisch könnte man natürlich ein Standard-Profil jedes mal kopieren (und hinterher löschen^^) und den Verzeichnisnamen als -P-Argument übergeben. Ist aber wie gesagt aus meiner Sicht keine sinnvolle Lösung.

Ich würde lieber mal schauen, ob es ein portables Thunderbird gibt, das mit --compose arbeiten kann. Ein installiertes Thunderbird wird dann allerdings nicht parallel laufen können, außer der Entwickler der portablen Version hat Thunderbird entsprechend gepatcht.

Edit: Wenn du eigentlich gar kein Thunderbird brauchst, sondern "nur" eine E-Mail senden willst (ohne sie noch zu bearbeiten), könntest du natürlich auch direkt eine Mail senden, ganz ohne Thunderbird (SMTP-Bibliotheken gibt es vermutlich auch für das Makro-Basic von Office, notfalls muss halt eine kleine Hilfsanwendung her).

Hallo,

ich möchte dir nochmal die Lösung mit dem zweiten Thunderbird-Portable vorschlagen, denn ich glaube, du hast nicht richtig verstanden, was ich meine:
Ein Thunderbird-Portable (die Dateien, die ausgeführt werden + das Profil), bei dem im Profil nichts ist, außer einem E-Mailkonto mit einem richtig konfigurierten SMTP-Server. Du kannst es als POP-Konto anlegen z.B. mit falschen POP3-Serverdaten (damit Thunderbird auch nichts abholt oder gar löscht), oder als IMAP-Konto. Falls du dich für IMAP entscheidest (würde ich so machen), dann stellst du einfach das "automatische Bereitshalten von E-Mails" ab, dann wird auch nichts runtergeladen, und dein Profil bleibt immer schön klein und schlank (ist ja auch ausschließlich für das Senden gedacht). Du kannst natürlich auch falsche IMAP-Server Einstellungen eintragen, dann findet auch sicher kein Datenverkehr (außer der gewünschte SMTP) statt.

Zitat

Wichtig dabei nur, dass diese Lösung in einer akzeptablen Geschwindigkeit auf jedem (bzw. auf jedem gängigen) PC vom USB Stick aus funktioniert.

Das ist ein Problem, denn es spielen verschiedenste Sicherheitsmechanismen mit, die Verhindern können, dass eine E-Mail versendet wird. u.a:
- FireWall
- Router (es gibt Router, die unterbinden die Nutzung von SMTP-Servern, die ihnen nicht bekannt sind)
- "Antiviren-Features"

Ich habe dir Mal ein Makro mit CDO aus dem Netz (oben hatte ich das ja verlinkt) zusammenkopiert, mit dem du relativ leicht eine E-Mail versenden kannst:

Sub sendEMailCDO(strTo As String, strCC As String, strBCC As String, _
                    strSubject As String, strBody As String, _
                    strAttachments As String, Optional HTML As Boolean = False)




'Konstanten => anpassen!
    Const FROM          As String = "deineAdresse@example.com"
    Const USERNAME      As String = "derUsername"    'oft: deineAdresse@example.com
    Const PASSWORD      As String = "ganzGeheim"
    Const SMTP_SERVER   As String = "smtp.example.com"
    Const SMTP_PORT     As Integer = 465




    Dim iMsg As Object
    Dim iConf As Object
    Dim Flds As Variant




    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")




    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = USERNAME
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = PASSWORD
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP_SERVER
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTP_PORT
        .Update
    End With




    With iMsg
        Set .Configuration = iConf
        .To = strTo
        .CC = strCC
        .BCC = strBCC
        .FROM = FROM
        .Subject = strSubject
        If Not HTML Or Len(strBody) = 0 Then                'Bug in CDO: empty body needs to be set!
            .TextBody = strBody
        Else
            .HTMLBody = strBody
        End If
        If Len(strAttachments) > 0 Then
            .AddAttachment strAttachments
        End If
        .Send
    End With




End Sub

Klar, dass du Server, Username etc eintragen musst?!

Das kannst du dann ganz einfach z.B. so aufrufen (beim Aufrufen kannst du natürlich auch Variablen verwenden):

Sub testCDO()
    sendEMailCDO "An@example.com", "", "", "toller Betreff", "toller Body!", "c:\Test\TestE-Mail.pdf"
End Sub

Ich habe leider nur Port 465 benutzen können, bei meinen Anbietern, die Port 587 und STARTTLS benutzen, klappte es bei den ersten zwei Versuchen nicht. Ich überlasse dir dann das weitere Testen .

Bei mir unter Win7 läufts, wie das mit Win10 aussieht weiß ich nicht.

Ist da was dabei für dich?

Grüße, Ulrich