Stránka 1 z 1
OUTLOOK: zasílání z excel databáze
Napsal: 16 bře 2018 13:44
od teichmann.ondrej
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
Re: OUTLOOK: zasílání z excel databáze
Napsal: 16 bře 2018 14:27
od Uziv00
Kdysi jsem dělal něco podobného:
viewtopic.php?f=35&t=96904Ale někde mám skript, který to přímo odesílal, jen ho musím najít
Re: OUTLOOK: zasílání z excel databáze
Napsal: 16 bře 2018 14:31
od elninoslov
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.
Re: OUTLOOK: zasílání z excel databáze
Napsal: 16 bře 2018 17:00
od teichmann.ondrej
ja jsem spis takova laik - ale zkušenější - muzete mi poradit jak na VBA?
Re: OUTLOOK: zasílání z excel databáze Vyřešeno
Napsal: 17 bře 2018 10:42
od Uziv00
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.