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

[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

[Reklama]

[Uziv00]

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

[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.

[teichmann.ondrej]

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

[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.