hvordan man bruger et excel makro til at e-mail uden at bruge Outlook

Indlæg af Alice Christensen     opdateret: 2011-07-22

Der er masser af grunde til at sende mail fra en Excel-makro . For eksempel , når en salgspris når en vis værdi , kan en leder gerne vil 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
1 .
Tryk " Alt " og " F11 "på samme tid fra Excel regneark for at åbne den indbyggede Visual Basic editor.
. 2
Kopier og indsæt følgende kode i det tomme kodevinduet :
Sub CDO_Mail_Small_Text ( )
Dim iMsg som objekt
Dim iConf som objekt
Dim strbody As String
' Dim Flds Som Variant
Set iMsg=CreateObject ( " CDO. Message " )
Set iConf=CreateObject ( " CDO. Configuration " )

. konto ( " http://schemas. microsoft . dk /CDO /konfiguration /sendusing " )=2
' . konto ( " http://schemas. microsoft. com/cdo/configuration/smtpserver " ) _
'=" Udfyld din SMTP -server her "
' . konto ( " http://schemas. microsoft. com/cdo/configuration/smtpserverport " )=25
' . Opdater
' End With

strbody=" Hej der " vbNewLine vbNewLine _
" Dette er linie 1 " vbNewLine _
" Dette er linie 2 " vbNewLine _
" Dette er linie 3 " vbNewLine _
" Dette er linie 4 "
Med iMsg
Set . Configuration=iConf
. To=" person@email. com "
. CC=" "
. BCC=" "
. Fra=" " " Person " " "
. Om=" emnelinjen "
. TextBody=strbody
. Send
End With
End Sub

3 .
Erstat " Udfyld din SMTP -server her " med adressen på den SMTP server du ønsker at bruge .
4 .
Tryk på " F5 "for at køre makroen og send din e-mail .

gode råd og advarsler


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


  • Previous:hvordan du importerer kontaktpersoner til en mac adresse bog fra excel ? Next:hvordan man kan ændre kilden til en Excel- pivottabel ved hjælp af VBA



     

    Kommentarer

    Code:
    change