Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
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 = " person@email.com " . CC = " " . BCC = " " . from = " " , " osoba " " End sub Nahradiť " Vyplňte SMTP servera tu " s adresou SMTP servera , ktorý chcete použiť . Stlačte " F5 " na spustiť makro a odoslať e - mailovú správu .
3
4
Copyright © počítačové znalosti Všetky práva vyhradené