Hvordan bruke et Excel Macro til e-post uten å bruke Outlook

Hvordan bruke et Excel Macro til e-post uten å bruke Outlook


Det er mange grunner til å sende e-post fra en Excel makro. For eksempel når en salgssummen når en viss verdi, kan en manager ønsker å vite med en gang. Mens det er noen måter å sende e-post fra en Excel makro, den mest brukte metoden er å utnytte Outlook. Det er et problem hvis du ikke har Outlook installert på datamaskinen du bruker for å åpne regnearket. I så fall kan du bruke CDO, som står for Samarbeid dataobjekt i stedet.

Bruksanvisning

1 Trykk "Alt" og "F11" samtidig fra Excel-regneark for å åpne den innebygde Visual Basic-redigering.

2 Kopier og lim inn følgende kode i det tomme kodevinduet:
Sub CDO_Mail_Small_Text ()

Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
' Dim Flds As Variant

Sett iMsg = Create ( "CDO.Message")
Sett iConf = Create ( "CDO.Configuration")

.Item ( "Http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
' = "Fill in your SMTP server here"
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Update
' End With

strbody = "Hei" & amp; vbNewLine & amp; vbNewLine & amp; _
"Dette er linje 1" & amp; vbNewLine & amp; _
"Dette er linje 2" & amp; vbNewLine & amp; _
"Dette er linje 3" & amp; vbNewLine & amp; _
"Dette er linje 4"

med iMsg
Sett .Configuration = iConf
.For = "[email protected]"
Cc = ""
.BCC = ""
.Fra = "" "Person" "& lt; [email protected]>"
.Subject = "Subject Line"
.TextBody = Strbody
.Sende
End With

End Sub

3 Erstatt "Fyll inn din SMTP-server her" med adressen til SMTP-serveren du ønsker å bruke.

4 Trykk "F5" for å kjøre makroen og sende e-postmeldingen.

Hint

  • Hvis du ikke har din egen, gir Google en SMTP-server (http://gmail.google.com) som du kan bruke gratis.