Det finns massor av anledningar att skicka e-post från ett Excel- makro . Till exempel, när en försäljning summa når ett visst värde , kan en chef vill veta direkt . Även om det finns några sätt att skicka e-post från ett Excel- makro , är den vanligaste metoden för att utnyttja Outlook . Det är ett problem om du inte har Outlook installerat på datorn du använder för att öppna kalkylbladet . I så fall kan du använda CDO , vilket står för Collaboration Data Object , istället . Instruktioner
1
Tryck " Alt " och " F11 " samtidigt från Excel-ark för att öppna den inbyggda Visual Basic Editor .
2
Kopiera och klistra in följande kod i den tomma koden fönstret : Sub CDO_Mail_Small_Text ( ) Dim IMSG Som ObjectDim iConf Som ObjectDim strbody As String ' Dim flds As Variant
Set IMSG = CreateObject ( " CDO.Message " ) Set iConf = = 2 ' . Produktfamilj ( " http://schemas.microsoft.com/cdo/configuration/smtpserver " ) _ ' = " Fyll i din SMTP- server här " " . Produktfamilj ( " http://schemas.microsoft.com/CDO /konfiguration /SMTPServerPort " ) = 25 ' . Update " End With
strbody = " Hej " & vbNewLine & vbNewLine & _ " Detta är linje 1 " & vbNewLine & _ " Detta är linje 2 " & vbNewLine & _ " Detta är linje 3 " & vbNewLine & _ " Detta är linje 4 "
iMsgSet . Configuration = iConf.To = " person@email.com " . CC = " " . BCC = " " . Från = " " " Person " " < person@email.com > " . Ämne = " Ämnesrad " . TextBody = strbody.SendEnd Med
End sub Addera 3
Ersätt " Fyll i din SMTP- server här " med adressen till SMTP-servern du vill använda .
4
Tryck " F5 " för att köra makrot och skicka e-postmeddelandet .
