Αναζήτηση στην υποστήριξη

Προσοχή στις απάτες! Δεν θα σας ζητήσουμε ποτέ να καλέσετε ή να στείλετε μήνυμα σε κάποιον αριθμό τηλεφώνου ή να μοιραστείτε προσωπικά δεδομένα. Αναφέρετε τυχόν ύποπτη δραστηριότητα μέσω της επιλογής «Αναφορά κατάχρησης».

Μάθετε περισσότερα

Automatické přikládání příloh do mailu

  • 6 απαντήσεις
  • 0 έχουν αυτό το πρόβλημα
  • 3 προβολές
  • Τελευταία απάντηση από Honza

more options

Ahoj, chtěl jsem v práci odesílat automaticky maily zákazníkům s podklady. Mám Excel který mi umí vybrat zákazníky a na ně odeslat mail přes Thunderbird, ale nejsem schopen do toho mailu automaticky připojovat přílohu. Nedohledal jsem nikde, že by tohle Thunderbird podporoval. Je možné, že jsem špatně hledal, je možné že to neumí. Je případně jiná cesta?

Ahoj, chtěl jsem v práci odesílat automaticky maily zákazníkům s podklady. Mám Excel který mi umí vybrat zákazníky a na ně odeslat mail přes Thunderbird, ale nejsem schopen do toho mailu automaticky připojovat přílohu. Nedohledal jsem nikde, že by tohle Thunderbird podporoval. Je možné, že jsem špatně hledal, je možné že to neumí. Je případně jiná cesta?

Επιλεγμένη λύση

Řešením je zjistit, co excel odesílá a jestli to jde změnit. Dodnes mám v TB doplněk lookout, který umožňuje číst některé maily vytvořené outlookem- možná by tento doplněk stačil.

Ανάγνωση απάντησης σε πλαίσιο 👍 0

Όλες οι απαντήσεις (6)

more options

Možná to špatně chápu, ale kde by Thunderbird přišel k té příloze, když není obsažena v tom e-mailu? Musíš najít způsob, aby byla příloha už v e-mailu, který odchází z toho Excelu. Jak dosáhnout toho, co chceš - nevím.

Thunderbird může automaticky připojit snad jenom "Podpis".

more options

To je právě ten problém. Excel umí vyplnit adresáta, hlavičku i text mailu. Umí i načíst adresu souboru. Dovede ji vložit do Outlooku, ale Thunderbird je pro nás výchozím klientem a tam se zdá, že tuto možnost Thunderbird neumí. Tedy, informace z Excelu dostane kompletní, ale zdá se, že tu část ohledně dokumentu neumí zpracovat a tedy nenačte.

more options

TB to umí- pokud je výchozím programem. Otázka je, jestli mu excel posílá správné informace. Tipuji, že posílá něco, co rozklíčuje jen outlook. :-) Na podobné práce využívám program autohotkey. Maily mi posílá pomocí klávesových zkratek a GUI. skript sestavení mailu vypadá třeba takhle: ×××××××××××××××××××××××

poslání mailu s určenou přílohou

program=%A_ProgramFiles%\Mozilla Thunderbird\thunderbird.exe ;cesta k mozille příjemce=to= ;adresát- nevyplněný předmět=subject=Text v předmětu ;předmět mailu soubor=c:\users\ufon\obrazek.pdf ; příloha=attachment=file:///%soubor% ;cesta k souboru přílohy tělo=body=předem mého dopisu, strč si zadek do lisu. S pozdravem Já. souhrn=%příjemce%,%předmět%,%příloha%,%tělo% ;složení proměnných do souhrnné proměnné run,%program% -compose "%souhrn%" ; spuštění programu se souhrnnou proměnnou

run,%pdf% ;otevře přílohu

return ;ukončení ×××××××××××××××××××××× Pokud dokážete data z excelu uložit do *.csv, autohotkey to umí načíst. Toto je starší již nepoužívaný a momentálně přepsaný skript- netuším, jestli takhle funguje. Ale s češtinou v těle to bylo docela peklo. :-)

more options

Díky za tipy a spolupráci, doma ze zájmu otestuju. Bohužel v práci mám zakázané stahování a instalování doplňků, takže tahle cesta nebude možná. Tím pádem považuji celou tuto situaci za daných okolností za neřešitelnou. Přesto díky za tipy a cesty k uvažování jak s tím.

more options

Επιλεγμένη λύση

Řešením je zjistit, co excel odesílá a jestli to jde změnit. Dodnes mám v TB doplněk lookout, který umožňuje číst některé maily vytvořené outlookem- možná by tento doplněk stačil.

more options

OK, tak nakonec tohle bylo to co mne dostalo na správnou cestu, díky! Pro případné další hledající, fungující kód u mne vypadá takto:

Sub OtevritMailASouborThunderbird()

   Dim Recipient As String
   Dim Subject As String
   Dim Body As String
   Dim AttachmentPath As String
   Dim ThunderbirdPath As String
   Dim Command As String
   
   ' Načtení informací z jednoho řádku
   Recipient = Range("B1").Value
   Subject = Range("B2").Value
   Body = Range("B3").Value
   AttachmentPath = Range("B5").Value
      
   ' Cesta k Thunderbirdu
   ThunderbirdPath = """C:\Program Files\Mozilla Thunderbird\thunderbird.exe"""
   
   ' Vytvoření příkazu pro otevření nového e-mailu s přílohou
   Command = ThunderbirdPath & " -compose " & "to=" & Recipient & "&subject=" & Subject & "&body=" & Body & "&attachment=file://" & AttachmentPath
   
   ' Spuštění příkazu
   Shell Command, vbNormalFocus

End Sub

Τροποποιήθηκε στις από τον/την Honza