Kako koristiti Excel makronaredbu za e-poštu bez korištenja programa Outlook

Postoji mnogo razloga za slanje pošte iz Excel makronaredbe. Na primjer, kada prodajni iznos dosegne određenu vrijednost, upravitelj bi to mogao odmah znati. Iako postoji nekoliko načina za slanje e-pošte iz Excel makronaredbe, najčešće korištena metoda je korištenje programa Outlook. To je problem ako na računalu koje koristite za otvaranje proračunske tablice nemate instaliran Outlook. U tom slučaju umjesto toga možete koristiti CDO, što je kratica za Collaboration Data Object.

1. korak

Pritisnite "Alt" i "F11" istovremeno u proračunskoj tablici programa Excel da biste otvorili ugrađeni Visual Basic editor.

2. korak

Kopirajte i zalijepite sljedeći kod u prazan prozor koda:Sub CDO_Mail_Small_Text() Dim iMsg As Object Dim iConf As Object Dim strbody As String ' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

.Item("http://schemas.Microsoft.com/cdo/configuration/sendusing") =2 ' .Item("http://schemas.Microsoft.com/cdo/configuration/smtpserver") _ ' ="Ispuni u vašem SMTP poslužitelju ovdje" ' .Item("http://schemas.Microsoft.com/cdo/configuration/smtpserverport") =25 ' .Update ' End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
 "This is line 1" & vbNewLine & _
 "This is line 2" & vbNewLine & _
 "This is line 3" & vbNewLine & _
 "This is line 4"

With iMsg
 Set .Configuration = iConf
 .To = "[email protected]"
 .CC = ""
 .BCC = ""
 .From = """Person"" < [email protected] >"
 .Subject = "Subject Line"
 .TextBody = strbody
 .Send
End With

Kraj pod

3. korak

Zamijenite "Ovdje ispunite svoj SMTP poslužitelj" adresom SMTP poslužitelja koji želite koristiti.

4. korak

Pritisnite "F5" za pokretanje makronaredbe i slanje poruke e-pošte.

Savjet

Ako nemate vlastiti, Google nudi SMTP poslužitelj (http://gmail.google.com) koji možete koristiti besplatno.