Der er masser af grunde til at sende mail fra en Excel- makro. For eksempel, når en salgs sum når en vis værdi kan en leder ønsker at vide med det samme. Mens der er et par måder at sende e-mail fra en Excel-makro , den mest anvendte metode er at udnytte Outlook. Det er et problem, hvis du ikke har Outlook installeret på den computer , du bruger til at åbne regnearket. I så fald kan du bruge CDO , som står for Collaboration Data Object , i stedet for. Instruktioner
1

Tryk på " Alt " og " F11 " på samme tid fra Excel -regneark til at åbne den indbyggede Visual Basic editor.
2

Kopier og indsæt følgende kode ind i det tomme kodevinduet : Sub CDO_Mail_Small_Text ( ) Dim iMsg Som ObjectDim iConf Som ObjectDim strbody As String ' Dim FLDS Som Variant

Set iMsg = CreateObject ( " CDO.Message " ) Set iConf = = 2 ". Item ( " http://schemas.microsoft.com/cdo/configuration/smtpserver " ) _ ' =" Udfyld din SMTP-server here " . Item ( " http://schemas.microsoft.com/CDO /konfiguration /smtpserverport " ) = 25 ' . Opdatering ' End With

strbody =" Hejsa "& vbNewLine & vbNewLine & _ " Dette er linie 1 "& vbNewLine & _ " Dette er linie 2 "& vbNewLine & _ " Dette er linie 3 "& vbNewLine & _ " Dette er linie 4 "

iMsgSet . Configuration = iConf.To =" person@email.com " . CC = "" . BCC = "" . Fra = "" " person " " < person@email.com >" . Subject = "Emne line" . TextBody = strbody.SendEnd Med

End sub
3

Erstat " Udfyld din SMTP-server here" med adressen på den SMTP -server, du ønsker at bruge.
4

Tryk på " F5" for at køre makroen , og send din e-mail .