Er zijn veel redenen om e-mail te sturen vanuit een Excel- macro . Bijvoorbeeld, wanneer een verkoop bedrag een bepaalde waarde bereikt, kan een manager willen meteen weten . Hoewel er zijn een paar manieren om e-mail te sturen vanuit een Excel- macro , de meest gebruikte methode is om Outlook te benutten . Dat is een probleem als je geen Outlook hebt geïnstalleerd op de computer die u gebruikt om de spreadsheet te openen . In dat geval kunt u CDO , wat staat voor Collaboration Data Object gebruiken , in plaats daarvan . Instructies
Druk " Alt " 1 en " F11 " op hetzelfde moment van de Excel-spreadsheet om de ingebouwde Visual Basic -editor .
Kopiëren en plakken 2 openen de volgende code in het lege code venster : Sub CDO_Mail_Small_Text ( ) Dim iMSG Zoals ObjectDim iConf Zoals ObjectDim strBody As String ' Dim flds als Variant Set
iMSG = CreateObject ( " CDO.Message " ) Set iConf = = 2 ' . Item ( " http://schemas.microsoft.com/cdo/configuration/smtpserver " ) _ ' = ' Vul uw SMTP -server hier " ' . Item ( " http://schemas.microsoft.com/" End With strBody
) = 25 ' . bijwerken ' = " cdo /configuratie /smtpserverport Hi there " & vbNewLine & vbNewLine & _ " Dit is lijn 1 " & vbNewLine & _ " Deze is lijn 2 " & vbNewLine & _ " Dit is lijn 3 " & vbNewLine & _ " Dit is lijn 4 "
Met iMsgSet . Configuratie = iConf.To = " [email protected] " CC . = " " . BCC = " " . From = " " " persoon " " " . Subject = "Onderwerp Line" . TextBody = strbody.SendEnd Met End
sub
3 Vervang " Vul uw SMTP -server hier " met het adres van de SMTP-server die u wilt gebruiken .
Druk op " F5 " om 4 de macro en stuur uw e-mailbericht .
|
