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).