Dobrý den,
chtěl by jsme se zeptat, jak nejlépe zasílat email pokud mám Excel databázi o 200 kontaktech a potřeboval by jsem prostřednictvím Outllooku nebo jiného softwaru odeslat nějaký hromadný jeden email.
děkuji moc za reakci.
Ondra
OUTLOOK: zasílání z excel databáze Vyřešeno
-
- Level 3.5
- Příspěvky: 813
- Registrován: leden 14
- Pohlaví:
- Stav:
Offline
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23605
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: OUTLOOK: zasílání z excel databáze
Kdysi jsem dělal něco podobného: viewtopic.php?f=35&t=96904
Ale někde mám skript, který to přímo odesílal, jen ho musím najít
Ale někde mám skript, který to přímo odesílal, jen ho musím najít
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
- elninoslov
- Level 2.5
- Příspěvky: 371
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: OUTLOOK: zasílání z excel databáze
Jednoducho urobte si Skupinu kontaktov.
-Ľudia
-Nová skupina kontaktov
-napíšte Meno skupiny, napr. Celá firma
-Pridať členov
-Z adresára / Z kontaktov programu Outlook
-pridajte ich postupne dvojklikom, alebo označením a stlačením Členovia
-prípadne ich pridajte hromadne označením so stlačením Ctrl alebo Shift (podľa potreby) a stlačením Členovia
-OK - Uložiť a zavrieť
Teraz keď budete posielať mail, stačí ako adresáta uviesť meno skupiny
EDIT:
Aha, tak Excel DB, no to nieje problém pomocou VBA ich nahodiť do novej správy ako príjemcov a v Outlooku si to už odošlete. Prípadne ak bez akéhokoľvek použitia Outlooku, tak snáď cez CDO.
-Ľudia
-Nová skupina kontaktov
-napíšte Meno skupiny, napr. Celá firma
-Pridať členov
-Z adresára / Z kontaktov programu Outlook
-pridajte ich postupne dvojklikom, alebo označením a stlačením Členovia
-prípadne ich pridajte hromadne označením so stlačením Ctrl alebo Shift (podľa potreby) a stlačením Členovia
-OK - Uložiť a zavrieť
Teraz keď budete posielať mail, stačí ako adresáta uviesť meno skupiny
EDIT:
Aha, tak Excel DB, no to nieje problém pomocou VBA ich nahodiť do novej správy ako príjemcov a v Outlooku si to už odošlete. Prípadne ak bez akéhokoľvek použitia Outlooku, tak snáď cez CDO.
-
- Level 3.5
- Příspěvky: 813
- Registrován: leden 14
- Pohlaví:
- Stav:
Offline
Re: OUTLOOK: zasílání z excel databáze
ja jsem spis takova laik - ale zkušenější - muzete mi poradit jak na VBA?
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23605
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: OUTLOOK: zasílání z excel databáze Vyřešeno
Tady to máš:
Obsah kódu zkopíruj do poznámkového bloku (NEPOUŽÍVAT WORD, ČI JINÝ TEXTOVÝ EDITOR!!!)
Ulož s příponou .vbs.
Poklepáním spustíš.
Skript očekává excel soubor C:\VzorKon.xlsx. To můžeš změnit v 17. řádku (komentář)
Vzorový xlsx přikládám jako přílohu.
Kód: Vybrat vše
'****************************************************
'* Skript načte e-mailové adresy z excel souboru *
'* Spustí e-mail pro odeslání na tyto adresy *
'****************************************************
'* Vytvořeno pro PC-HELP! *
'****************************************************
'* Etienn@Script v 1.0 *
'****************************************************
Option Explicit
Dim objExcel, objWorkbook, intRow, text, adresy
Dim fso, WshShell, strDesktop, oUrlLink
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.WorkBooks.Open _
("C:\VzorKon.xlsx", 1, False) 'Plná cesta k souboru
' 1=jen pro čtení, False=soubor se nebude vytvářet pokud neexistuje
' Načtení adres z excel souboru
intRow = 2 '2=řádek od kterého budeme začínat
text = ""
With objExcel
.Sheets("List1").Select
Do Until .activeSheet.Cells(intRow,1).Value = ""
text = text & "(" & objExcel.Cells(intRow, 5).Value & ")," & vbCrLf '5=číslo sloupce s e-mailovými adresami
intRow = intRow + 1
Loop
End With
objWorkbook.Close
objExcel.Quit
adresy = "?bcc=" & text
' "?to=" > Komu, "?cc=" > Kopie, "?bcc=" > Skrytá kopie
' vytvoření URL linku
Set fso = CreateObject("SCripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\vyzva.url")
oUrlLink.TargetPath = "mailto:" & adresy
oUrlLink.Save
WScript.Sleep 500
' spuštění zástupce
WshShell.Run """" & oUrlLink & """"
WScript.Sleep 500
' vymazání zástupce
fso.DeleteFile oUrlLink, True
' vynulování objektů
Set fso = Nothing
Set WshShell = Nothing
Set oUrlLink = Nothing
Set objExcel = Nothing
Set objWorkbook = Nothing
Obsah kódu zkopíruj do poznámkového bloku (NEPOUŽÍVAT WORD, ČI JINÝ TEXTOVÝ EDITOR!!!)
Ulož s příponou .vbs.
Poklepáním spustíš.
Skript očekává excel soubor C:\VzorKon.xlsx. To můžeš změnit v 17. řádku (komentář)
Vzorový xlsx přikládám jako přílohu.
- Přílohy
-
- VzorKon.xlsx
- (10.61 KiB) Staženo 62 x
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Sdílená databáze na webu pro 70 lidí
od Darth Vader » 14 lis 2023 21:47 » v Programování a tvorba webu - 1
- 1120
-
od kubasCZ
Zobrazit poslední příspěvek
15 lis 2023 07:00
-
-
-
Outlook app nefunguje
od WangJason97 » 31 srp 2023 11:19 » v Mobily, tablety a jiná přenosná zařízení - 0
- 1664
-
od WangJason97
Zobrazit poslední příspěvek
31 srp 2023 11:19
-
-
-
Outlook - složky v AJ, nelze vymazat Příloha(y)
od huklorcz » 15 bře 2024 22:20 » v Kancelářské balíky - 5
- 981
-
od mmmartin
Zobrazit poslední příspěvek
15 bře 2024 23:52
-
-
-
Outlook - složky v AJ, nelze vymazat Příloha(y)
od janakailana » 03 bře 2024 08:21 » v Kancelářské balíky - 6
- 922
-
od janakailana
Zobrazit poslední příspěvek
03 bře 2024 11:16
-
-
-
MS Outlook - Hromadné vytvoření složek Příloha(y)
od czTANIScz » 22 zář 2023 11:36 » v Kancelářské balíky - 6
- 2862
-
od czTANIScz
Zobrazit poslední příspěvek
23 zář 2023 22:34
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 1 host