Ako používať Excel E - mail

Odoslanie e - Ail z aplikácie Microsoft Office Excel pomocou jazyka Visual Basic for Applications ( VBA ) vám môže ušetriť čas , kedy budete potrebovať na e - mail dáta z listu . Jeden prístup má používať systém správy e - mailu aplikácie Microsoft Outlook pre odosielanie e - mailu z programu Excel . V programe Excel , môžete použiť VBA automatizovať manuálne úlohy , ako je odoslanie e - mailu . S VBA môžete použiť objektovej knižnice Microsoft Outlook pre automatizáciu e - mailové funkcie , ako je vytváranie a odosielanie e - mailov . Návod dovolená 1

spustení programu Excel a kliknite na kartu " Vývojár " . Kliknite na " Visual Basic " , otvorte okno Basic Visual Microsoft . Kliknite na menu " Nástroje " a kliknite na " Referencie " . Posuňte sa nadol na pole zoznamu a zaškrtnite políčko vedľa " Microsoft Outlook Object Library . "
2

Kliknite na " Vložiť " menu a kliknite na " modul " pre vloženie nového kódu modulu . Zadajte nasledujúci príkaz na vytvorenie nového postupu poslať e - mail :

Sub sendemail ( )

On Error GoTo Err_sendEmail :
3

zadajte nasledujúce deklarovať svoje premenné :

Dim oLookApp Ako Outlook.Application

Dim oLookMail Ako Outlook.MailItem

Dim dataToSend As String
4

typu po vytvorení objektov programu Outlook :

Set oLookApp = New Outlook.Application

Set oLookMail = oLookApp.CreateItem ( 0 )
5

Zadajte nasledujúce pridať dva riadky dát : ..

Range ( " A1 " ) Vyberte

ActiveCell.Value = " Test 1 údajov "

Range ( " A2 " ) Zvoľte

ActiveCell.Value = " Test 2 údaje "
6

Zadajte nasledujúce dáta uložte do reťazcové premenné : .

Range ( " A1 " ) Zvoľte

dataToSend = ActiveCell.Value

Range ( " A2 " ) Vyberte klipart

dataToSend = . " Riadok 1 : " & dataToSend & " .... Riadok 2 : " & ActiveCell.Value
7

zadajte nasledujúcu definíciu e - mailu a pošlite ho : .

S oLookMail

= " someemailaddress@domain.com "

. Subject = " e - mail Excel "

. Telo = dataToSend

. Poslať

End With

Upravte e - mailovú adresu a zadajte pracovné e - mailová adresa
8

Zadajte nasledujúci na koniec procesu a zachytiť prípadné chyby : .

Exit_sendEmail :

Exit Sub

Err_sendEmail :

MsgBox Err.Description

Resume Exit_sendEmail :

End Sub
9

Stlačte " F5 " pre spustenie procedúry a poslať e - mail od Excel .

• Predchádzajúca strana: Rozdiely medzi Microsoft Excel 2007 a ​​starších verziách programu Microsoft Excel 
• Ďalšia strana: Excel Funkcia tabuľkového