Ako používať aplikácie Excel makra do e - mailu bez použitia aplikácie Outlook

Existuje veľa dôvodov , prečo odosielajú poštu z makrá programu Excel . Napríklad , keď predajné súčet dosiahne určité hodnoty , správca môže chcieť poznať hneď . Aj keď existuje niekoľko spôsobov , ako poslať e - mail z makrá programu Excel , najčastejšie používanou metódou je využiť aplikáciu Outlook . To je problém , ak nemáte Outlook nainštalovaný v počítači , ktorý používate pre otvorenie tabuľky . V takom prípade môžete použiť CDO , čo je skratka pre Collaboration Data Object , namiesto toho . Návod dovolená 1

Stlačte tlačidlo " Alt " a " F11 " , zároveň z tabuľky programu Excel otvoríte vstavaný editore jazyka Visual Basic .
2

Kopírovanie a vkladanie nasledujúci kód do prázdneho okna kód : Sub CDO_Mail_Small_Text ( ) Dim iMsg Ako ObjectDim iConf Ako ObjectDim strbody As String ' Dim f As Variant

Set iMsg = CreateObject ( " CDO.Message " ) Set iConf = = 2 " . Item ( " http://schemas.microsoft.com/cdo/configuration/smtpserver " ) _ " = " Vyplňte SMTP servera tu " " . Item ( " http://schemas.microsoft.com/CDO /configuration /SMTPServerPort " ) = 25 ' . Update " End With

strbody = " Hi there " a vbNewLine a vbNewLine & _ " Toto je riadok 1 " a vbNewLine & _ " Tento je linka 2 " a vbNewLine & _ " Toto je riadok 3 " a vbNewLine & _ " Toto je riadok 4 "

iMsgSet . Configuration = iConf.To = " [email protected] " . CC = " " . BCC = " " . from = " " , " osoba " " " . Subject = " Predmet Line " . TextBody = strbody.SendEnd S

End sub
3

Nahradiť " Vyplňte SMTP servera tu " s adresou SMTP servera , ktorý chcete použiť .
4

Stlačte " F5 " na spustiť makro a odoslať e - mailovú správu .

• Predchádzajúca strana: Ako navrhnúť krížovka s aplikáciou Excel 2003 
• Ďalšia strana: Ako používať PMT funkcie v programe Excel