OUTLOOK: zasílání z excel databáze Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

teichmann.ondrej
Level 3.5
Level 3.5
Příspěvky: 807
Registrován: leden 14
Pohlaví: Nespecifikováno
Stav:
Offline

OUTLOOK: zasílání z excel databáze

Příspěvekod teichmann.ondrej » 16 bře 2018 13:44

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

Reklama
Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23592
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

Re: OUTLOOK: zasílání z excel databáze

Příspěvekod ITCrowd » 16 bře 2018 14:27

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 :-)
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

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: OUTLOOK: zasílání z excel databáze

Příspěvekod elninoslov » 16 bře 2018 14:31

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.

teichmann.ondrej
Level 3.5
Level 3.5
Příspěvky: 807
Registrován: leden 14
Pohlaví: Nespecifikováno
Stav:
Offline

Re: OUTLOOK: zasílání z excel databáze

Příspěvekod teichmann.ondrej » 16 bře 2018 17:00

ja jsem spis takova laik - ale zkušenější - muzete mi poradit jak na VBA?

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23592
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

Re: OUTLOOK: zasílání z excel databáze  Vyřešeno

Příspěvekod ITCrowd » 17 bře 2018 10:42

Tady to máš:

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


  • 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
    936
    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
    1506
    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
    704
    od mmmartin Zobrazit poslední příspěvek
    15 bře 2024 23:52
  • MS Outlook - Hromadné vytvoření složek Příloha(y)
    od czTANIScz » 22 zář 2023 11:36 » v Kancelářské balíky
    6
    2682
    od czTANIScz Zobrazit poslední příspěvek
    23 zář 2023 22:34
  • Outlook - složky v AJ, nelze vymazat Příloha(y)
    od janakailana » 03 bře 2024 08:21 » v Kancelářské balíky
    6
    780
    od janakailana Zobrazit poslední příspěvek
    03 bře 2024 11:16

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů