Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để tạo danh sách thả xuống cho các đối tượng trong Outlook?

Bạn có thể có các chủ đề email đặt trước khác nhau cần được phân phối cho những người nhận khác nhau trong Outlook. Sẽ rất hiệu quả nếu có một danh sách thả xuống dòng chủ đề để chọn chủ đề mà không cần nhập thủ công khi soạn email. Cũng giống như gif được minh họa bên dưới. Hướng dẫn này cung cấp ba mã VBA để giúp bạn tạo danh sách thả xuống với các chủ đề đặt trước khác nhau. Khi soạn email, bạn có thể chọn bất kỳ chủ đề nào bạn cần từ menu thả xuống để tự động điền vào dòng chủ đề. Vui lòng làm theo hướng dẫn từng bước để thực hiện.


Tạo danh sách thả xuống cho các đối tượng trong Outlook bằng mã VBA

Trên thực tế, Outlook không cho phép thêm danh sách thả xuống trong dòng chủ đề. Ở đây bạn cần tạo một biểu mẫu người dùng và kết hợp nó với các mã VBA để hoàn thành nó.

1. Khởi chạy Outlook của bạn, nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Biểu mẫu người dùng.

3. Sau đó Người dùngForm1 được chèn dưới Project1 trong ngăn bên trái của Visual Basic người biên tập. Bạn cần thêm một hộp tổ hợp và một nút lệnh vào biểu mẫu người dùng này bằng cách kéo hộp tổ hợpLệnhNút tương ứng từ Hộp công cụ đến Người dùngForm1.

4. Nhấp chuột phải vào nút lệnh và chọn Bất động sản trong menu chuột phải.

5. bên trong Thuộc tính - CommandButton1 ngăn, thay đổi Chú thích trường để OK. Hành động này sẽ thay đổi văn bản hiển thị trên nút lệnh.

6. Nhấp đúp vào vùng trống trong UserForm để mở UserForm (Mã) , sau đó thay thế mã hiện có bằng mã VBA sau.

Mã VBA 1: UserForm với danh sách thả xuống bao gồm nhiều chủ đề email đặt trước

Private Sub UserForm_Initialize()
'Updated by Extendoffice 20220927
  With ComboBox1
    .AddItem "Subject 1"
    .AddItem "Subject 2"
    .AddItem "Subject 3"
    .AddItem "Subject 4"
    .AddItem "Subject 5"
    .AddItem "No change"
  End With
End Sub

Private Sub CommandButton1_Click()
  GCbbIndex = ComboBox1.ListIndex
  GSelSubject = ComboBox1.Value
  Unload Me
End Sub

Chú thích: Trong mã, Chủ đề 1, 2, 3, 45 là các chủ đề email đặt trước mà bạn muốn sử dụng trong email của mình. “Không thay đổi”Có nghĩa là không thay đổi bất kỳ điều gì của chủ đề email hiện có. Bạn có thể thay đổi các chủ đề email đặt trước trong mã VBA theo nhu cầu của mình.

7. Nhấn đúp chuột Project1 > Đối tượng Microsoft Outlook > ĐâyOutlookSession. Sau đó sao chép mã VBA sau vào cửa sổ ThisOutlookSession (Code).

Mã VBA 2 được sử dụng trong cửa sổ ThisOutlookSession

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220927
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub

8. Tiếp tục nhấp vào Chèn > Mô-đun trong Visual Basic người biên tập. Sau đó, sao chép và dán mã VBA sau vào Mô-đun (Mã) cửa sổ.

Mã VBA 3 được sử dụng trong cửa sổ Mô-đun

Public GCbbIndex As Long
'Updated by Extendoffice 20220927
Public GSelSubject As String
Public GInlineMail As MailItem
Public Sub ChangeSubject()
  Dim xItem As MailItem
  Dim xMail As Outlook.MailItem
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set xMail = GInlineMail
      Debug.Print "Explorer"
    Case "Inspector"
      Set xMail = Application.ActiveInspector.CurrentItem
      Debug.Print "Inspector"
  End Select
  UserForm1.Show
  If (GCbbIndex <> -1) And (GSelSubject <> "no change") Then
    xMail.Subject = GSelSubject
  End If
End Sub

9. Lưu mã và nhấn Khác + Q chìa khóa để đóng Trình soạn thảo Visual Basic cửa sổ và quay lại ứng dụng Outlook.

10. Nhấp vào Email mới dưới nút Trang chủ để tạo email.

11. Trong cửa sổ tin nhắn mới, hãy nhấp vào Tùy chỉnh thanh công cụ truy cập nhanh > Các lệnh khác.

12. bên trong Tùy chọn Outlook hộp thoại, bạn cần cấu hình như sau.

12.1) Chọn Macros trong Chọn lệnh từ danh sách thả xuống;
12.2) Chọn Project1.ChangeSubject trong hộp danh sách lệnh;
12.3) Nhấp vào Thêm Nút;
12.4) Nhấp vào OK cái nút. Xem ảnh chụp màn hình:

13. Sau đó, bạn có thể thấy rằng một nút đã được thêm vào dải băng của cửa sổ tin nhắn.

14. Bây giờ bạn cần khởi động lại Outlook của mình.

15. Khi soạn thư email, nếu bạn cần chèn một chủ đề đặt trước, bạn chỉ cần nhấp vào nút mới được thêm trên dải băng để hiển thị biểu mẫu người dùng, chọn một chủ đề từ trình đơn thả xuống, sau đó nhấp vào OK để điền nó vào dòng chủ đề.

Chú ý:

1) Bạn có thể thay đổi chủ đề hiện có bằng bất kỳ chủ đề nào được chọn trong danh sách thả xuống;
2) Phương pháp này hoạt động tốt khi trả lời hoặc chuyển tiếp email trong cửa sổ mới;
3) Nếu bạn có xu hướng trả lời email trong dòng từ ngăn đọc hơn là mở một cửa sổ riêng biệt, bạn có thể hiển thị biểu mẫu người dùng như sau.
3.1) Nhấp Nhà phát triển > Macros > Project1.ChangeSubject. Xem ảnh chụp màn hình:

3.2) Khi biểu mẫu người dùng bật lên, hãy chọn một chủ đề đặt trước từ danh sách thả xuống và nhấp vào OK , chủ đề ban đầu sẽ được thay đổi ngay lập tức.

4) Nếu bạn chọn Không thay đổi trong menu thả xuống, chủ đề gốc sẽ được giữ lại mà không có bất kỳ thay đổi nào.

Kutools cho Outlook - Cung cấp 100 Tính năng Nâng cao cho Outlook và Làm cho Công việc Dễ dàng hơn Nhiều!

  • Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo tùy chỉnh; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
  • Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ thư của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
  • Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email trong vài giây; Tự động thêm lời chào khi trả lời; Thêm Ngày vào chủ đề ...
  • Công cụ Tệp đính kèm: Quản lý Tất cả Tệp đính kèm trong Tất cả Thư, Tự động tách, Nén tất cả, Đổi tên tất cả, Lưu tất cả ... Báo cáo nhanh, Đếm thư đã chọnhữu ích. Cảm ơn !
  • Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặphữu ích. Cảm ơn ! Cho phép bạn làm việc thông minh hơn, nhanh hơn và tốt hơn trong Outlook.
shot kutools triển vọng tab kutools 1180x121
shot kutools triển vọng kutools plus tab 1180x121
 
Nhận xét (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL