Kako poslati e-pošto iz Excela s hiperpovezavo v telesu e-pošte?
Ste že kdaj poskusili poslati e-pošto s kodo VBA v Excelu? In kako dodati hiperpovezave k besedilu telesa e-pošte, ko pošiljate e-pošto? Ta članek bo pomagal rešiti to težavo.
V telo e-pošte vstavite hiperpovezavo s kodo VBA
V telo e-pošte vstavite hiperpovezavo s kodo VBA
Spodnja koda VBA vam lahko pomaga poslati e-pošto iz Excela in v telo e-pošte vstaviti določeno hiperpovezavo. Naredite naslednje.
1. Zaženite delovni zvezek in pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Modul, in nato kopirajte spodnjo kodo VBA v urejevalnik modula.
Koda VBA: vstavite hiperpovezavo v telo e-pošte
Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
xStrBody = "Hi there:" & "<br>" _
& "Please click " & "<a href=" & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
& "Thank you."
On Error Resume Next
Set xOtl = CreateObject("Outlook.Application")
Set xOtlMail = xOtl.CreateItem(olMailItem)
With xOtlMail
.To = "Email Address"
.CC = "Email Address "
.BCC = " Email Address "
.Subject = "Subject line"
.HTMLBody = .HTMLBody & xStrBody
.Display
End With
Set xOtl = Nothing
Set xOtlMail = Nothing
End Sub
Opombe:
- Prosimo, spremenite vsebino telesa in hiperpovezavo v xStrBody Line.
- ZamenjajteEmail naslov"V . Da, .DC in.BCC vrstice z dejanskimi e-poštnimi naslovi, na katere boste poslali e-pošto. Če ne potrebujete vrstic CC in BCC, jih preprosto odstranite iz celotne kode ali pred vrsticami dodajte en narekovaj, na primer 'CC = "E-poštni naslov".
- ZamenjajteZadeva"V .Zadeva vrstica z zadevo vašega e-poštnega sporočila.
3. Pritisnite F5 tipko za zagon kode. Nato se ustvari e-poštno sporočilo z določenimi polji in telesom s hiperpovezavo, ki je navedena znotraj, in kliknite Pošlji, da ga pošljete.
Sorodni članki
Samodejno pošlji e-pošto na podlagi vrednosti celice v Excelu
Recimo, da želite poslati e-poštno sporočilo prek Outlooka določenemu prejemniku na podlagi določene vrednosti celice v Excelu. Če je na primer vrednost celice D7 na delovnem listu večja od 200, se samodejno ustvari e-poštno sporočilo. Ta članek predstavlja metodo VBA za hitro reševanje te težave.
Pošlji e-pošto, če v Excelu kliknete gumb
Recimo, da morate e-pošto poslati prek Outlooka s klikom na gumb na Excelovem delovnem listu, kako lahko to storite? Ta članek bo predstavil metodo VBA za podrobno doseganje.
Pošljite e-pošto, če je v Excelu potekel rok zapadlosti
Recimo, da je datum zapadlosti v stolpcu C manjši ali enak 7 dnevom (trenutni datum je 2017/9/13), nato pošljite e-poštni opomnik določenemu prejemniku v stolpcu A z določeno vsebino v stolpcu B. Kako to doseči? Metoda v tem članku vam lahko stori uslugo.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!