Makro içeren boş e-posta içeriği

-1

İplik kullanma İşte Şablonu yeni bir mesaj penceresinde açacak bir makro oluşturdum. İmzam hala altta.

Şablonu eklemeden önce e-posta içeriğini boşaltmak istiyorum, VBA'da yeniyim ve nasıl yapacağımdan emin değilim!

Bu nasıl yapılır?

Geçerli kod:

Sub TemplateName()
    Set msg = Application.CreateItemFromTemplate("C:\Users\xyz\Desktop\template.oft")
    msg.Display
End Sub

Bu alt programı çalıştırmadan önce e-postayı boşaltmak istiyorum.

microsoft-outlook vba macros

— Panomosh
kaynak

Bunu okumayı dene: msdn.microsoft.com/en-us/library/... - yardımcı olabilirmiyim.

— Andi Mohr

Kullanmakta olduğunuz kodu ve ne yorgun olduğunuzu gösterebilir misiniz?

— Dave

Şu anda sadece bu:

— Panomosh

0

"Yeni mesajlar" için imzayı yok olarak ayarlayın.

Dosya | Seçenekler | Mail | İmzalar

Yeni mesajlar: (yok)

— niton
kaynak

İmzaları devam ettirmek istiyorum. Bu sadece uyumlu bir e-posta şablonu açacak olan makroyu çalıştıran bir düğme olacak. Yapmam gereken tek şey, şablonu eklemeden önce e-postanın içeriğini boşaltmak ve saçma sapan bir durum!

— Panomosh

@Panomosh Şablon yeni bir mesaj oluşturur. Bu adımdan önce hiçbir şey yoktur, bu nedenle imzalı posta öğesini görmeden önce boş bırakılacak hiçbir şey yoktur.

— niton

0

Şablon metninin uzunluğunu belirleyin ve yalnızca bunu saklayın.

İmza başlangıcının benzersiz olduğunu varsayalım.

Dim sig_start as long
Dim template_text_end as long

sig_start = InStr(msg.Body, "unique text at the start of the signature")
template_text_end = sig_start - 1
msg.Body = Left(msg.Body, template_text_end)
debug.print template_text_end

Şablon metninin sonunun konumunu belirlediğinizde, bunu her zaman çözmemeye karar verebilirsiniz.

Msg.HTMLBody uygulamasını denemeniz gerekebilir.

Vücudu manipüle etmek zordur;

— niton
kaynak