Hogyan használhatunk Excel-makrót e-mailekhez az Outlook használata nélkül

Számos oka van annak, hogy Excel-makróból küldjön levelet. Például, amikor egy eladási összeg elér egy bizonyos értéket, egy menedzser azonnal tudni akarja. Bár van néhány módja az e-mailek küldésének Excel-makrókból, a leggyakrabban használt módszer az Outlook kihasználása. Ez akkor lehet probléma, ha nincs telepítve az Outlook arra a számítógépre, amelyet a táblázat megnyitásához használ. Ebben az esetben használhatja helyette a CDO-t, ami a Collaboration Data Object rövidítése.

1. lépés

A beépített Visual Basic szerkesztő megnyitásához nyomja meg egyszerre az "Alt" és az "F11" gombot az Excel-táblázatban.

2. lépés

Másolja ki és illessze be a következő kódot az üres kód ablakba: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") _ ' ="Kitöltés az SMTP-kiszolgálón itt" ' .Item("http://schemas.Microsoft.com/cdo/configuration/smtpserverport") =25 ' .Frissítés ' Vége ezzel:

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

Vége Sub

3. lépés

Cserélje ki a „Töltse ki itt az SMTP-kiszolgálóját” szöveget a használni kívánt SMTP-szerver címére.

4. lépés

Nyomja meg az „F5” gombot a makró futtatásához és az e-mail üzenet elküldéséhez.

Tipp

Ha nem rendelkezik sajátjával, a Google ingyenesen használható SMTP-szervert biztosít (http://gmail.google.com).