Kako uporabljati Excelov makro za e-pošto brez uporabe Outlooka

Obstaja veliko razlogov za pošiljanje pošte iz Excelovega makra. Na primer, ko prodajna vsota doseže določeno vrednost, bo upravitelj morda želel vedeti takoj. Čeprav obstaja nekaj načinov za pošiljanje e-pošte iz Excelovega makra, je najpogosteje uporabljena metoda uporaba Outlooka. To je težava, če v računalniku, ki ga uporabljate za odpiranje preglednice, nimate nameščenega Outlooka. V tem primeru lahko namesto tega uporabite CDO, kar pomeni Collaboration Data Object.

1. korak

Pritisnite "Alt" in "F11" hkrati v Excelovi preglednici, da odprete vgrajeni urejevalnik Visual Basic.

2. korak

Kopirajte in prilepite naslednjo kodo v okno s prazno kodo: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") _ ' ="Izpolni v vašem strežniku SMTP tukaj" ' .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

Končaj pod

3. korak

Zamenjajte "Tukaj izpolnite svoj strežnik SMTP" z naslovom strežnika SMTP, ki ga želite uporabiti.

4. korak

Pritisnite "F5", da zaženete makro in pošljete svoje e-poštno sporočilo.

Nasvet

Če nimate svojega, Google ponuja strežnik SMTP (http://gmail.google.com), ki ga lahko uporabljate brezplačno.