Excel'den e-posta gönderirken e-posta gövdesinde köprü nasıl eklenir?

Excel'de VBA koduyla e-posta göndermeyi denediniz mi? Ve e-posta gönderirken e-posta gövde metnine nasıl köprü eklenir? Bu makale, bu sorunu çözmeye yardımcı olacaktır.

VBA kodu ile e-posta gövdesine köprü ekleme

VBA kodu ile e-posta gövdesine köprü ekleme

Aşağıdaki VBA kodu, Excel'den e-posta göndermenize ve e-posta gövdesine belirli bir köprü eklemenize yardımcı olabilir. Lütfen aşağıdaki adımları izleyin.

1. Çalışma kitabınızı açın, Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'ü tıklayın ve ardından aşağıdaki VBA kodunu Modül düzenleyicisine kopyalayın.

VBA kodu: E-posta gövdesine köprü ekleme

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

Notlar:

• Lütfen xStrBody satırındaki gövde içeriğini ve köprüyü değiştirin.
• E-posta Adresi”ni, e-posta göndereceğiniz gerçek e-posta adresleriyle değiştirin. .To, .CC ve .BCC satırlarındaki “E-posta Adresi”ni, e-posta göndereceğiniz gerçek e-posta adresleriyle değiştirin. CC ve BCC satırlarına ihtiyacınız yoksa, bunları tüm koddan kaldırın veya satırların başına tek bir tırnak işareti ekleyin, örneğin 'CC =”E-posta Adresi”.
• .Subject satırındaki “Konu satırını” kendi e-posta konunuzla değiştirin.

3. Kodu çalıştırmak için F5 tuşuna basın. Ardından, belirtilen alanlar ve içinde köprü bulunan gövde ile e-posta oluşturulur, Gönder düğmesine tıklayarak gönderin.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!

İlgili makaleler