Variable E-Mail-Adresse mit Makro an Thunderbird übergeben

[Newbie2019]

Hallo zusammen,

bin blutiger Anfänger und komme hier einfach nicht weiter. Es klappt - mit vermutlich wild aussehender - aber funktionsfähiger Variante fast alles. Nur die variable E-Mail-Adresse übernehmen geht nicht. Excel 2007, Thunderbird 60.4.0

Sub PDFundMail()
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\xxx.pdf", OpenAfterPublish:=True
 
  strTh = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe "
  strCommand = "-compose to= klappt noch nicht " & _
    ",subject='123',body=''" & _
    ",attachment='file:D:\xxx.pdf'"
  Shell strTh & strCommand, vbNormalFocus
End Sub

Bei klappt noch nicht wurde folgendes ausprobiert ...

Code:

Worksheets("RE").Range("E13").Value

[Flotter Feger]

Hallo,

stell dir doch mal vor ... ich habe gerade deine Überschrift in Google eingefügt und Suchen geklickt ... :19:

Was meinst du, was da rauskam ? 25.700 Treffer ... und gleich die ersten drei sind Volltreffer ... Wahnsinn ... oder ? Wer hätte das gedacht ? :16:

PS: woher sollen denn bitte die Leute hier wissen, ob die korrekte E-Mail Adresse irgendwo in deiner Tabelle steht ? Kristallkugeln zeigen sowas nicht deutlich.

[mumpel]

Hallo!

https://www.rholtz-office.de/thunderbird/grundlagen

Gruß, René

[Newbie2019]

Hallo flotter Feger,

deine Antwort betrachte ich so wie du meine Frage: vollkommen überflüssig. Denn die Suchmaschinen liefern meines Erachtens zig unterschiedliche Beispiele auf ähnliche Fragestellungen, dann kommen aber immer wieder Outlook-Lösungen statt TB in's Spiel usw. usf. Ich würde diese "doofe" Frage nicht stellen, wenn ich nicht schon 5 Stunden etliche Konstellationen und Befehlchen ausprobiert hätte. Es gibt sicher auch genug Dinge, von denen du keinen Dunst hast. Warum dann dieser beleidigende Kommentar? Schon mal das Einstein-Rätsel gelöst ("Wem gehört der Fisch?")? Schaffen angeblich nur 2% der Weltbevölkerung. Ich hab's in 3 Stunden gelöst - ohne Suchmaschine.

Nun zum deutlich konstruktiveren Beitrag von mumpel-René (vielen Dank dafür schon mal). Auf dieser Seite war ich gestern lange unterwegs, bevor ich die Frage gestellt habe. Wie man auf eine (variable) E-Mail-Adresse aus einer fixen Zelle verweist habe ich jedoch nicht gefunden. Wo steht das auf dieser Seite?

Code:

Empfaenger             As String

Sagt ja noch nix aus.

Code:

",to='" & .Empfaenger & "

OK, to bedeutet Adresszeile, aber wer genau dieser Empfänger ist, ist anscheinend immer noch unklar.

Code:

.Empfaenger = "empfaenger@example.com"

Fixer Empfänger. Für andere Fragestellungen ggfs. hilfreich. Meine E-Mail-Adressen (innerhalb der Tabelle) aus einer fixen Zelle variieren jedoch ständig. Immer am selben Ort, aber stets ein anderer Inhalt.

[schauan]

Hallöchen,

eventuell liegt es nur an den Anführungszeichen? Wenn Du es so gemacht hast wie gepostet sind die falsch.

strCommand = "-compose to= klappt noch nicht " & _

bzw. dann

strCommand = "-compose to= Worksheets("RE").Range("E13").Value " & _


korrekt wäre

strCommand = "-compose to=" & Worksheets("RE").Range("E13").Value & _

[Flotter Feger]

Hallo zusammen,

Begonnen die Vorgaben des Einstein-Rätsels anzuschauen (https://www.logisch-gedacht.de/logikraet...inraetsel/) um 18.51 Uhr ... Ende gerade eben 22.49 Uhr.

Zwischendrin meine Tochter ins Bett gebracht ... auf der Toilette gewesen (nur gepinkelt) ... gesamt ca. 20 Minuten.

Rein rechnerisch ... mit einem geringen Fehler, wegen der kleinen Pause ... UND NATÜRLICH OHNE NACHSCHAUEN !!! (Hab ich gar nicht nötig ... )

3 Stunden 38 Minuten
Entweder ist das Rätsel einfach zu leicht, oder ich bin zu gut für diese Welt.

Mit anderen Worten  ... wieso kann der TO nicht genug VBA um sich seine Problem selbst zu lösen ??? :19:

PS: Datei mit meiner Lösung nachgereicht.

[WillWissen]

Hi Sabina,

3 Stunden 38 Minuten

wieso so lange?  Auch ohne Nachsehen, keine Pause: 32 Minuten

[Flotter Feger]

Hallo Günter,

ich sag doch, so kompliziert kann das Rätsel nicht sein.
Zu meiner Verteidigung ... habe bisher um solche Rätsel immer einen weiten Bogen gemacht ... und es war auch schon spät.

[Newbie2019]

Herzlichen DANK, schauan! Klappt.

"Grammatik"-Zeichen, deren Bedeutung und Funktion waren und sind mir leider immer noch gänzlich unbekannt. Nochmal Danke für die schnelle und kompetente Hilfe.

[Der Steuerfuzzi]

Hallo,

ich habe lang überlegt, ob ich antworten soll, aber Deinrn Ton finde ich nicht angemessen gegenüber Leuten, die Dir in ihrer Freizeit bei Deinem Problem versuchen zu helfen. Etwas Eigeninitiative kann man mE durchaus von einem Fragesteller verlangen. Wenn dann der Hinweis auf Google kommt, kannst Du das annehmen oder auch nicht, aber beschweren ist hier eher unangebracht. Kannst es ja ignorieren und Dich den anderen Antworten widmen.

Denn die Suchmaschinen liefern meines Erachtens zig unterschiedliche Beispiele auf ähnliche Fragestellungen, dann kommen aber immer wieder Outlook-Lösungen statt TB in's Spiel usw. usf.

Das stimmt nicht. Der zweite Eintrag liefert gleich einen Link ins Herber-Forum: http://www.herber.de/forum/archiv/1292to...rbird.html
Dieser Link ist nicht der einzige! Du hattest vielleicht keine Lust das alles zu lesen, oder? Deine Kritik finde ich nicht berechtigt und den Beitrag von Sabina empfinde ich eigentlich nicht als beleidigend.

Schon mal das Einstein-Rätsel gelöst ("Wem gehört der Fisch?")? Schaffen angeblich nur 2% der Weltbevölkerung. Ich hab's in 3 Stunden gelöst - ohne Suchmaschine.

Was willst Du uns damit sagen? Dass Du überdurchschnittlich intelligent bist? Das Rätsel ist doch kein Maßstab für irgendetwas und die 2% halte ich für völligen Nonsens. Habe aus Spaß mal das in Sabinas Link in nicht einmal 1/2 Stunde gelöst und das mit Unterbrechung durch ein Telefonat (genaue Zeit habe ich nicht notiert). Alles eine Frage der Technik (PM-Hefte in der Jugend haben sich wohl gelohnt . Entweder ist also die Behauptung falsch oder hier sitzen schon mindestens 4 Leute dieser 2%. Zieh Deine Schlüsse selbst.

PS: Irgendwie bin ich gerade etwas in Streitlaune. Bitte nicht böse nehmen, aber es gibt Fragesteller, die sich verhalten, als wenn Sie eine Dienstleistung bezahlt hätten, die nicht zufriedenstellend erbracht wurde.