Ana içeriğe atla

Excel'de belirtilen kalın / boyut / renk / altı çizili metin biçiminde e-posta nasıl gönderilir?

HTML gövde biçimi, e-postayı zenginleştirebilir ve okumayı kolaylaştırabilir. Bu makale, Excel'de kalın, altı çizili ve ayrıca belirtilen boyut ve renkli metin biçimini ekleyerek HTML biçimli e-posta gövdesine sahip bir e-posta göndermekten bahsediyor.

VBA kodu ile belirtilen kalın / boyut / renk / altı çizili metin biçiminde e-posta gönderin


VBA kodu ile belirtilen kalın / boyut / renk / altı çizili metin biçiminde e-posta gönderin

Excel'de belirli HTML gövde biçimine sahip bir e-posta göndermek için lütfen aşağıdaki VBA kodunu uygulayın.

1. Tuşuna basın. Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından, VBA kodunu Kod penceresine kopyalayın.

VBA kodu: Excel'de belirli kalın / boyut / renk / altı çizili metin biçiminde e-posta gönderin

Sub SharePerformance1()
'Update by ExtendOffice 2018/3//5
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xOutMsg As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xOutMsg = "<b>This text is bold</b><br/><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""><br />" & _
               "<u>New line with underline</u><br /><p style='font-family:calibri;font-size:25'>Font size</p>"
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Html format email"
        .HTMLBody = xOutMsg
        .Display
    End With
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

notlar:

1) Değiştirin .Konu kendi çizginizle.
2) Alıcının e-posta adresini . İçin hattı.
3) içinde xÇıkışMsg satır:
3.1) metninizi kalın hale getirebilir;
3.2) ... metin rengi
3.3) Yeni bir satırı yeniden başlatmak istiyorsanız, lütfen ekleyin yeni satır metninden önce;
3.4) Metninizin altını çizin;
3.5) Ve metin boyutunu şu şekilde değiştirin:.

3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Ardından, belirtilen HTML biçimi gövdesine sahip e-posta açılıyor. Lütfen tıklayın Gönder göndermek için düğmesine basın.


Excel'de oluşturulan posta listesinin alanlarına göre Outlook aracılığıyla kolayca e-posta gönderin:

The Mailleri gönder yarar Kutools for Excel Excel'de oluşturulan posta listesine dayalı olarak kullanıcıların Outlook aracılığıyla e-posta göndermesine yardımcı olur.
Şimdi indirin ve deneyin! (30 günlük ücretsiz iz)


İlgili yazılar:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
đây là cài đặt cố định cho kiểu chữ rồi, còn mình là biến động cơ Dim Noidungmail As String
....Noidungmail = Sheets("Email_List").Cells(RowNum, 5).Value
...HTMLBody =  Noidungmail & .HTMLBody
mình muốn định dạng cho noidungmail có font chữ, màu sắc, size chữ thì viết lệnh kiểu gì ạ
This comment was minimized by the moderator on the site
It's really helpful code
I need to change text format from right to left In the xOutMsg line
help please .
This comment was minimized by the moderator on the site
It's really helpful code
I need to change text format from right to left In the xOutMsg line help please ..
This comment was minimized by the moderator on the site
What is the syntax for converting the text to a hyperlink in the message body?
This comment was minimized by the moderator on the site
Thank you very much!
Work fine in MS Office Pro 2019
This comment was minimized by the moderator on the site
Hey, just wanted to let you know that it doesn't work in Excel 2016.
This comment was minimized by the moderator on the site
works for me in 2016?
This comment was minimized by the moderator on the site
No, it does not work for you in 2016 and further versions. <b></b> does nothing.
This comment was minimized by the moderator on the site
Ensure you have given .HTMLBody instead of .body
This comment was minimized by the moderator on the site
It's really helpful code I need to change <span style="letter-spacing: 0.2px; color: inherit; font-family: inherit; font-style: inherit; font-variant-ligatures: inherit; font-variant-caps: inherit; font-weight: inherit;">In the xOutMsg line </span>
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations