Paragraf kesmelerini satır sonlarına değiştirin

Question

Bir e-posta göndermeden önce, paragraf kesmelerini satır sonlarına değiştirmek istiyorum. Replace yerine, bir makroyu çalıştırmak istiyorum. Aşağıdaki, ThisOutlookSession içine yerleştirilmiş, makro olarak kaydetmez. Varsayım çünkü argümanları geçemezsiniz ??? Ama kodu nereye koyabilirim?

Private Sub ChgParagraphsToLineBreaks(ByVal Item As Object, Cancel As Boolean) 
    Item.Body = Replace(Item.Body, "^p", "^l") 
End Sub 

Answer 1

Sizin alt email göndermek ediliyor tetiklenir Application.ItemSend() olay çağrısı yapılmalıdır. Bu olaydaki gönderimi de iptal edebilirsiniz.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 

    ChgParagraphsToLineBreaks Item 

End Sub 

Private Sub ChgParagraphsToLineBreaks(ByVal Item As Object) 
    dim strBody as string 
    strBody = Item.Body 
    strBody = Replace(strBody, "^p", "^l") 
    Item.Body = strBody 
End Sub