Hướng dẫn edithtml macro - macro edithtml

Khi soạn một thông báo ở định dạng HTML trong Outlook, mã HTML được tự động tạo bởi động cơ WordHTML. Thật không may, Outlook không cung cấp một cách trực tiếp để chỉnh sửa mã HTML được tạo này.

Với macro EDITHTML từ hướng dẫn này, bạn có thể chỉnh sửa hoặc thay thế hoàn toàn HTML của một thông báo bạn đang soạn. Điều này giúp dễ dàng hơn nhiều để thực hiện các sửa đổi cụ thể hoặc sử dụng mã HTML mà bạn đã tạo trong một trình soạn thảo HTML khác.

Bằng cách này, bạn có thể đảm bảo rằng thiết kế được tạo cẩn thận của bạn, như cho một bản tin, không được sửa đổi bởi WordHTML và vẫn tương thích với các ứng dụng thư khác.

• Macro Edithtml
• Cài đặt nhanh
• Mã Macro

---

Macro Edithtml

Cài đặt nhanh

Mã Macro

Macro EdithTML cho phép bạn dễ dàng chỉnh sửa mã nguồn HTML thô trong khi soạn email.

Điều này cho phép bạn thực hiện các thay đổi cụ thể cho một phần nhất định trong email của bạn, nhanh chóng nhập mẫu HTML hoặc thay thế hoàn toàn HTML của tin nhắn bằng một mẫu (như cho một bản tin) mà bạn đã tạo trong một ứng dụng khác.

• Để ngăn mã của bạn bị thay đổi bởi động cơ WordHTML, bạn có thể gửi email trực tiếp từ trình chỉnh sửa HTML để nó sẽ đi ra chính xác như bạn dự định.
  Any modifications that you’ve made to the HTML code is being applied to the message. Note however that further editing the message or even sending it could result in WordHTML restructuring or rewriting your HTML code. Usually, this doesn’t lead to any visual changes.
• Bằng cách thực hiện macro EdithTML, bạn sẽ mở một cửa sổ hộp thoại chứa hộp văn bản để chỉnh sửa HTML. Bên dưới hộp văn bản này có 3 lệnh để lựa chọn;
  If you really don’t want WordHTML to change your HTML again then this is your best pick. The macro will apply the HTML code from the HTML Editor to the message and sends out the message with the HTML exactly as you’ve put it in the editor. This is often needed for design heavy newsletters for which rerendering it with WordHTML could break the design for other mail clients.
  The macro can only send it when you’ve specified at least one recipient and the subject for the message. You’ll get a reminder of this in case your forgot.
• Áp dụng các sửa đổi mà bạn đã thực hiện cho mã HTML đang được áp dụng cho tin nhắn. Tuy nhiên, lưu ý rằng việc chỉnh sửa thêm thông báo hoặc thậm chí gửi nó có thể dẫn đến tái cấu trúc WordHTML hoặc viết lại mã HTML của bạn. Thông thường, điều này không dẫn đến bất kỳ thay đổi trực quan nào.
  This button does exactly what you expect it to do; It will not apply any changes that you’ve made in the HTML Editor to the message that you are composing and closes the HTTML Editor to return you to your message.

Áp dụng & Send nếu bạn thực sự không muốn WordHTML thay đổi HTML của bạn một lần nữa thì đây là lựa chọn tốt nhất của bạn. Macro sẽ áp dụng mã HTML từ trình chỉnh sửa HTML vào tin nhắn và gửi tin nhắn với HTML chính xác như bạn đã đặt nó vào trình chỉnh sửa. Điều này thường cần thiết cho các bản tin hạng nặng thiết kế để tạo lại nó bằng WordHTML có thể phá vỡ thiết kế cho các ứng dụng thư khác. Macro chỉ có thể gửi nó khi bạn đã chỉ định ít nhất một người nhận và chủ đề cho tin nhắn. Bạn sẽ nhận được một lời nhắc về điều này trong trường hợp bạn quên.

Cài đặt nhanh

1. Mã Macro
2. Macro EdithTML cho phép bạn dễ dàng chỉnh sửa mã nguồn HTML thô trong khi soạn email.
3. Điều này cho phép bạn thực hiện các thay đổi cụ thể cho một phần nhất định trong email của bạn, nhanh chóng nhập mẫu HTML hoặc thay thế hoàn toàn HTML của tin nhắn bằng một mẫu (như cho một bản tin) mà bạn đã tạo trong một ứng dụng khác.
4. Để ngăn mã của bạn bị thay đổi bởi động cơ WordHTML, bạn có thể gửi email trực tiếp từ trình chỉnh sửa HTML để nó sẽ đi ra chính xác như bạn dự định.
5. Bằng cách thực hiện macro EdithTML, bạn sẽ mở một cửa sổ hộp thoại chứa hộp văn bản để chỉnh sửa HTML. Bên dưới hộp văn bản này có 3 lệnh để lựa chọn;
6. Áp dụng các sửa đổi mà bạn đã thực hiện cho mã HTML đang được áp dụng cho tin nhắn. Tuy nhiên, lưu ý rằng việc chỉnh sửa thêm thông báo hoặc thậm chí gửi nó có thể dẫn đến tái cấu trúc WordHTML hoặc viết lại mã HTML của bạn. Thông thường, điều này không dẫn đến bất kỳ thay đổi trực quan nào.

Áp dụng & Send nếu bạn thực sự không muốn WordHTML thay đổi HTML của bạn một lần nữa thì đây là lựa chọn tốt nhất của bạn. Macro sẽ áp dụng mã HTML từ trình chỉnh sửa HTML vào tin nhắn và gửi tin nhắn với HTML chính xác như bạn đã đặt nó vào trình chỉnh sửa. Điều này thường cần thiết cho các bản tin hạng nặng thiết kế để tạo lại nó bằng WordHTML có thể phá vỡ thiết kế cho các ứng dụng thư khác. Macro chỉ có thể gửi nó khi bạn đã chỉ định ít nhất một người nhận và chủ đề cho tin nhắn. Bạn sẽ nhận được một lời nhắc về điều này trong trường hợp bạn quên.

Mã Macro

Macro EdithTML cho phép bạn dễ dàng chỉnh sửa mã nguồn HTML thô trong khi soạn email.

'===============================================================================
'Description: Outlook macro to edit the HTML of an email that you are composing.
'
' author : Robert Sparnaaij
' version: 1.0
' website: https://www.howto-outlook.com/howto/edit-html-source-code-email.htm
'===============================================================================

Sub EditHTML()
    HTMLEditor ("Edit")
End Sub

Function HTMLEditor(ByVal Action As String)
    Dim objMail As MailItem, oInspector As Inspector
    Dim msgResult As Integer, msgText As String, msgTitle As String
    msgText = "This is not an editable email in HTML format."
    msgTitle = "Email HTML Editor"
    
    Set oInspector = Application.ActiveInspector
    If oInspector Is Nothing Then
        msgResult = MsgBox(msgText, vbCritical, msgTitle)
    Else
        Set objMail = oInspector.CurrentItem
        With objMail
            If .Sent Then
                msgResult = MsgBox(msgText, vbCritical, msgTitle)
            Else
                If .BodyFormat = olFormatHTML Then
                    Select Case Action
                        Case "Edit"
                            HTMLEditForm.HTMLTextBox.Text = .HTMLBody
                            HTMLEditForm.Show
                        Case "Apply"
                            .HTMLBody = HTMLEditForm.HTMLTextBox.Text
                            HTMLEditForm.Hide
                        Case "ApplySend"
                            If (.Recipients.Count = 0) Or (.Recipients.ResolveAll = False) Or (.Subject = "") Then
                                msgResult = MsgBox("Please specify the recipients and/or the Subject for this message first." _
                                        & vbNewLine & "Choose Apply or Cancel instead.", vbCritical, msgTitle)
                            Else
                                .Close olSave
                                .HTMLBody = HTMLEditForm.HTMLTextBox.Text
                                .Send
                                HTMLEditForm.Hide
                            End If
                    End Select
                Else
                    msgResult = MsgBox(msgText, vbCritical, msgTitle)
                End If
            End If
        End With
	Set objMail = Nothing
    End If
    Set oInspector = Nothing
End Function

Điều này cho phép bạn thực hiện các thay đổi cụ thể cho một phần nhất định trong email của bạn, nhanh chóng nhập mẫu HTML hoặc thay thế hoàn toàn HTML của tin nhắn bằng một mẫu (như cho một bản tin) mà bạn đã tạo trong một ứng dụng khác.

Private Sub ApplyButton_Click()
    Call HTMLEdit.HTMLEditor("Apply")
End Sub

Private Sub ApplySendButton_Click()
    Call HTMLEdit.HTMLEditor("ApplySend")
End Sub

Private Sub CancelButton_Click()
    Me.Hide
End Sub