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

Làm cách nào để gửi một email định kỳ theo lịch trong Outlook?

Trong Microsoft Outlook, bạn có thể dễ dàng gửi lịch hẹn, cuộc họp hoặc nhiệm vụ định kỳ cho người khác. Nhưng nếu bạn chỉ muốn gửi một email định kỳ mà không có bất kỳ cuộc hẹn, cuộc họp hay nhiệm vụ nào, bạn có thể làm thế nào? Rất tiếc, Outlook không cung cấp tính năng gửi email định kỳ theo lịch, nhưng trong hướng dẫn của chúng tôi, chúng tôi sẽ chỉ cho bạn cách gửi email định kỳ theo lịch trong Outlook.

Gửi email định kỳ theo lịch trong Outlook với mã VBA

Dễ dàng gửi email định kỳ theo lịch trong Outlook với một công cụ tuyệt vời


Gửi email định kỳ theo lịch trong Outlook với mã VBA

Hướng dẫn này được chia thành bốn phần, bạn sẽ thành công khi gửi một email định kỳ sau khi hoàn thành các phần này. Hãy làm như sau.

Phần 1: Tạo một cuộc hẹn mới

1. Vui lòng điều hướng đến Xem Lịch xem bằng cách nhấp vào Xem Lịch trong Navigation Pane, rồi tạo một cuộc hẹn mới bằng cách nhấp vào Bổ nhiệm mới Dưới Trang chủ tab.

3. bên trong Bổ nhiệm hộp thoại dưới Bổ nhiệm chuyển hướng. Bạn cần phải:

A: Nhập vào Tiêu Đề B: Nhập địa chỉ email của người nhận vào Địa Chỉ
C: Định cấu hình Thời gian bắt đầuThời gian kết thúc D: Chọn lời nhắc bên dưới Reminder danh sách thả xuống.
Nếu bạn chọn 15 phút, có nghĩa là nó sẽ nhắc bạn sớm 15 phút khi email được gửi.
E: Soạn nội dung Cuộc hẹn của bạn.

Chú thích: Các Chủ đề cuộc hẹn sẽ trở thành chủ đề email định kỳ; và Cơ quan bổ nhiệm sẽ trở thành nội dung email định kỳ khi người nhận nhận được email.

Phần 2: Tạo một danh mục mới

Bây giờ bạn cần tạo một danh mục mới có tên “Gửi email định kỳ theo lịch trình" như sau:

1. bên trong Bổ nhiệm hộp thoại, vui lòng nhấp vào Phân loại > Tất cả danh mục trong Tag nhóm dưới Bổ nhiệm tab.

2. Khi mà Danh mục màu sắc hộp thoại bật lên, vui lòng nhấp vào Mới nút. bên trong Thêm danh mục mới hộp thoại, nhập “Gửi email định kỳ theo lịch trình" trong Họ tên cánh đồng; và sau đó chọn một màu trong Màu danh sách thả xuống. Sau đó nhấp vào OK.

3. Sau đó, bạn sẽ thấy “Gửi email định kỳ theo lịch trình”Danh mục được liệt kê, vui lòng chọn hộp, sau đó nhấp vào OK .

Phần 3: Đặt thời gian lặp lại

Bây giờ, đã đến lúc thiết lập thời gian lặp lại cho cuộc hẹn.

1. nhấp chuột Tái phát trong Các lựa chọn nhóm dưới Bổ nhiệm chuyển hướng. Xem ảnh chụp màn hình:

2. bên trong Cuộc hẹn lặp lại hộp thoại, cấu hình của bạn Tái phát mẫu. Nếu bạn cần thời gian kết thúc, vui lòng định cấu hình nó theo Phạm vi lặp lại. Và sau đó nhấp vào OK.

3. Khi nó trở về Bổ nhiệm hộp thoại, vui lòng nhấp vào Lưu & Đóng cái nút. Xem ảnh chụp màn hình:

Phần 4: Sử dụng mã VBA để gửi Email Định kỳ theo lịch trình

1. Vui lòng nhấn Khác + F11 để mở Microsoft Visual Basic cho các ứng dụng thoại.

2. Nhấp đúp vào Project1 > Đối tượng Microsoft Outlook > ThisOutlookSession trong ngăn bên trái. Xem ảnh chụp màn hình:

3. Sao chép và dán mã VBA sau vào trình chỉnh sửa VBA. Và sau đó nhấp vào Lưu .

VBA: lịch gửi email định kỳ

Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20200522
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
On Error Resume Next
If Item.Class <> OlObjectClass.olAppointment Then Exit Sub
If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
Set xItemDoc = Item.GetInspector.WordEditor
xFldPath = CStr(Environ("USERPROFILE"))
xFldPath = xFldPath & "\MyReminder"
If Dir(xFldPath, vbDirectory) = "" Then
    MkDir xFldPath
End If
xFldPath = xFldPath & "\AppointmentBody.xml"
xItemDoc.SaveAs2 xFldPath, wdFormatXMLDocument ' wdFormatXML
Set xNewDoc = xMailItem.GetInspector.WordEditor
VBA.DoEvents
xNewDoc.Application.Selection.HomeKey
xNewDoc.Activate
xNewDoc.Application.Selection.InsertFile FileName:=xFldPath, Attachment:=False
With xMailItem
    .To = Item.Location
    .Recipients.ResolveAll
    .Subject = Item.Subject
    .Send
End With
Set xMailItem = Nothing
VBA.Kill xFldPath
End Sub

4. nhấp chuột CÔNG CỤ > dự án để mở dự án - Dự án hộp thoại. Trong hộp thoại, chọn Thư viện đối tượng Microsoft Word và nhấp vào OK .

5. Nhấn nút Khác + Q cùng một lúc để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

Khi Reminder bật lên, email sẽ tự động được gửi đến người nhận mà bạn đã nhập vào trường Vị trí ở phần đầu tiên. Sau đó nhấp vào Bỏ qua trong Reminder hộp thoại. Và email sẽ được gửi định kỳ hàng ngày trong thời gian này. Xem ảnh chụp màn hình:

Chú thích: Mã VBA đã được kiểm tra thành công trong Outlook 2010 và các phiên bản mới hơn.


Dễ dàng gửi email định kỳ theo lịch trong Outlook với một công cụ tuyệt vời

Đối với nhiều người dùng Outlook, phương pháp trên quá tẻ nhạt để có thể xử lý chính xác. Ở đây rất khuyên bạn nên Lên lịch gửi tự động tính năng của Kutools cho Outlook. Với tính năng này, bạn có thể dễ dàng tạo nhiều email định kỳ và lên lịch gửi các email này đều đặn hàng ngày, hàng tuần, hàng tháng hoặc hàng năm nếu bạn cần. Hãy làm như sau để hoàn thành.

Truy cập tải xuống Kutools cho Outlook và có một thử.

1. nhấp chuột Kutools > Lên lịch gửi tự động > Tạo lịch gửi tự động.

2. Sau đó, một cửa sổ thông báo đang mở và bạn cần:

2.1) Chọn người nhận email trong Tới, Cc or Bcc trường như bạn cần, sau đó điền vào email môn học;
2.2) Soạn nội dung email;
2.3) Nhấp Tái phát theo Kutools định kỳ chuyển hướng. Xem ảnh chụp màn hình:

3. Bây giờ Email lặp lại hộp thoại bật lên, bạn cần chỉ định thời gian định kỳ, mô hình định kỳphạm vi tái phát cho email, và sau đó nhấp vào OK .

4. Bây giờ nó trở lại cửa sổ tin nhắn, nhấp vào Lưu & Đóng để lưu cài đặt định kỳ và đóng cửa sổ.

Lời khuyên: Bạn có thể lặp lại bước từ 1 đến 4 ở trên để tạo nhiều email định kỳ khi cần.

5. Bây giờ hãy bật tính năng này bằng cách nhấp vào Kutools > Lên lịch gửi tự động > Bật.

6. Trong phần mở đầu Kutools cho Outlook hộp thoại, nhấn OK.

Sau khi hoàn tất các cài đặt trên, các email định kỳ sẽ được gửi tự động khi đến ngày và giờ được chỉ định.

Lưu ý: Bạn có thể dễ dàng quản lý các email định kỳ của mình như sau.

1. nhấp chuột Kutools > Lên lịch gửi tự động > Quản lý lịch gửi tự động.

2. bên trong Mange lịch gửi tự động cửa sổ, bạn có thể tạo mới email định kỳ, chỉnh sửa, xóa, bật or off một email định kỳ hiện có khi bạn cần. Hoặc bạn có thể nhấp vào Khúc gỗ biểu tượng để xem lịch sử gửi của các email định kỳ.

Nhấp để biết thêm về tính năng này.

  Kutools cho Outlook bao gồm hơn 100 tính năng mạnh mẽ cho Microsoft Outlook. Dùng thử miễn phí không giới hạn trong 60 ngày. Tải về!


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 (167)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Phương pháp này đã giúp ích. Nó hoạt động cho một cuộc hẹn ban đầu được tạo khi tôi đang thử nghiệm nó. Nhưng sau đó nó đã ngừng hoạt động sau đó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã gặp vấn đề tương tự, tôi đã lặp lại các bước nhiều lần và bây giờ nó không hoạt động chút nào, không có email nào được gửi hoặc bất cứ điều gì. Bạn có thể khắc phục nó không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đã có thể thiết lập email định kỳ bằng cách làm theo các bước trên, nhưng khi tôi tạo Siêu liên kết trong phần nội dung của Cuộc hẹn, khi sự kiện được kích hoạt và tôi nhận được thư trong thư thì Siêu liên kết đã được chuyển đổi thành liên kết thô. Mọi sự giúp đỡ đều được đánh giá cao, Cảm ơn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn! Điều này đã làm việc. Có cách nào để đưa tệp đính kèm vào email được gửi đi không? Tôi đã thử kiểm tra với việc thêm tệp đính kèm vào sự kiện lịch nhưng nó không xuất hiện trong email.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
bạn đã bao giờ nhận được câu trả lời về cách thêm tệp đính kèm chưa? Thanks!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có cái này để làm việc cho email thử nghiệm, nhưng bây giờ nó không còn hoạt động gì nữa và tôi đã xóa mọi thứ và lặp lại các bước, còn điều này nữa không? Tôi cũng đang xem triển vọng 2013
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã có cùng một vấn đề. Điều này đã hoạt động ngay lần đầu tiên nhưng lời nhắc cuộc hẹn định kỳ dường như không kích hoạt email. Có ai tìm thấy một giải pháp cho vấn đề này?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Tôi có cái này để làm việc cho email thử nghiệm, nhưng bây giờ nó không còn hoạt động nữa, và tôi đã xóa mọi thứ và lặp lại các bước, còn điều này nữa không? Tôi cũng đang xem triển vọng 2013Bởi Wonderful[/ quote] Bạn đã bao giờ giải quyết việc này chưa? Tôi vừa thiết lập điều này và đang thấy điều tương tự như bạn đã làm. Làm việc tuyệt vời lần đầu tiên sau đó không có gì.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cuối cùng, tôi đã sắp xếp điều này bằng cách bật macro trong Outlook mà theo mặc định bị tắt. Vấn đề duy nhất mà tôi gặp phải bây giờ là văn bản trong e-mail chỉ là văn bản thuần túy, không có chữ in đậm, kích thước phông chữ hoặc thay đổi màu sắc, v.v. xuất hiện. Có cách nào để thay đổi mã trên để bạn có văn bản RTF hoặc HTML trong e-mail không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Bạn đã giải quyết vấn đề này. Tôi gặp vấn đề tương tự Đã thử điều này, nhưng không hiệu quả. Sub SetMailFormat_2002_2003_2007_2010 (ByRef mail As Object) Dim mailFormat As System.Int32 mailFormat = Convert.ToInt32 (mail.GetType (). InvokeMember ("BodyFormat", _ Reflection.BindingFlags.GetProperty, Nothing, mail, Nothing) = 0 'OlBodyFormat.olFormatPlain = 1' OlBodyFormat.olFormatHTML = 2 'OlBodyFormat.olFormatRichText = 3 If (mailFormat = 1) Sau đó mailFormat = 2 mail.GetType (). InvokeMember ("BodyFormatPronding", _ Reflection _ Không có gì, thư, Đối tượng mới () {mailFormat}) Kết thúc Sub Private Sub Application_Reminder (ByVal Item As Object) Dim MItem As MailItem Set MItem = Application.CreateItem (olMailItem) If Item.MessageClass "IPM.Appointment" Sau đó thoát Sub If Item . Danh mục "Gửi email định kỳ theo lịch trình" Sau đó thoát khỏi Sub MItem.To = Item.Location MItem.Subject = Item.Subject MItem.Body = Item.Body MItem.Send Set MItem = Nothing End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Cuối cùng, tôi đã sắp xếp điều này bằng cách bật macro trong Outlook mà theo mặc định bị tắt. Vấn đề duy nhất mà tôi gặp phải bây giờ là văn bản trong e-mail chỉ là văn bản thuần túy, không có chữ in đậm, kích thước phông chữ hoặc thay đổi màu sắc, v.v. xuất hiện. Có cách nào để thay đổi mã trên để bạn có văn bản RTF hoặc HTML trong e-mail không?Bởi Kyle[/ quote] Xin chào Bạn đã tìm ra giải pháp cho việc này chưa. Tôi cần nó để :) Kim
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn cũng có thể cân nhắc sử dụng Trình lập lịch tác vụ Windows cho những việc như thế này. Nó rất dễ sử dụng và thậm chí có thể xử lý các tệp đính kèm.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã thử với tác vụ nhưng không đạt được gì vì tệp đính kèm không đi đến nội dung email. Xin vui lòng cho biết bạn đã làm như thế nào.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn đang sử dụng mã nào? Nó không đính kèm vào email các tệp đính kèm.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
làm thế nào để bạn tắt nó?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi nghĩ, để ngừng gửi e-mail định kỳ, bạn có thể: 1. Xóa hoàn toàn cuộc hẹn. 2. Thay đổi hoặc Xóa danh mục đã đặt. 3. Áp dụng Ngày 'Kết thúc Trước' cho Cuộc hẹn Tái hiện.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
bạn có cần mở / chạy outlook để gửi thư định kỳ không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã này có hoạt động với Office 365 - Outlook 2013 không? Tôi đã làm theo các bước vài lần, cũng bật macro. Tôi nhận được lời nhắc và nhấn bỏ qua nhưng email không bao giờ được gửi.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Này, hãy kiểm tra cái này - Tôi nghĩ bạn sẽ hoàn toàn thích tính năng này .. Không còn email mẫu hàng tuần nữa
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để gửi đến danh sách phân phối trong danh bạ không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vâng, Aaron, tôi cần phải tự mình làm điều này. Tôi đã thử thêm danh sách phân phối (Nhóm liên hệ Outlook) được gọi là 'Nhóm thông số'. Điều này đã không gửi. Tuy nhiên, tôi đã thay đổi tên danh sách thành 'Spec @ Group' (để làm cho nó giống như một địa chỉ e-mail thực tế) và điều này hoạt động hoàn hảo. Nó phải cần '@' để được chọn. Dự đoán may mắn! :cười lớn:
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này đã hoạt động tốt. Bây giờ tôi cần cùng một email để chuyển đến nhiều nhóm. Có ai giúp được không? Private Sub Application_Reminder (ByVal Item As Object) Dim CF As Folder Set CF = Application.Session.GetDefaultFolder (olFolderContacts) Dim DLI As DistListItem Set DLI = CF.Items ("GDL Group 1") Dim MItem As MailItem Set MItem = Application. CreateItem (olMailItem) If Item.MessageClass "IPM.Appointment" Then Exit Sub If Item.Categories "Recurring GDL Recert Email" Sau đó thoát Sub MItem.To = DLI MItem.Subject = Item.Subject MItem.Body = Item.Body MItem. Gửi Set MItem = Không có gì End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tạo một danh sách Phân phối khác có chứa / trỏ đến các Danh sách phân phối khác mà bạn đã thiết lập mà bạn muốn đưa vào.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có thể lên lịch gửi email trong outlook khi máy tính không hoạt động không. Ví dụ: tôi muốn gửi một lời nhắc hẹn vào Chủ nhật cho một cuộc họp vào thứ Hai, nhưng tôi không đi làm vào Chủ nhật, vậy làm cách nào để gửi email đó để đi ra ngoài vào Chủ nhật khi tôi không ở nơi làm việc và máy tính của tôi tắt? Thanks!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã VBA không xuất hiện khi tôi nhấn ALT & F11. Tôi đã có thể kéo Microsoft Visual Basic for Applications lên, nhưng không có mã nào hiện diện. Bạn có thể vui lòng tư vấn? Cảm ơn bạn, Raj
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Raj, không có mã VBA nào nên có. Nếu bạn làm theo hướng dẫn ở trên, khi bạn nhấp đúp vào "ThisOutlookSession", nó sẽ trống. Bạn phải sao chép và dán mã được hiển thị trong hướng dẫn vào cửa sổ "ThisOutlookSession" và sau đó lưu nó. Hi vọng điêu nay co ich.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào khi tôi làm theo tất cả các bước và lưu và tạo một email khác- mã vẫn còn đó từ lần trước. Mã đính kèm với danh mục được chọn nên không cần thêm mã cho từng email?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Bonnie, mã VBA chỉ cần được thêm một lần (cho e-mail định kỳ đầu tiên). Nếu thiết lập nhiều e-mail định kỳ, bạn chỉ cần bỏ qua bước đó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có Office 2016 và tôi đã thử điều này, theo đúng hướng dẫn của bạn. Nó đã làm việc!! Cảm ơn bạn rất nhiều. Tôi đã phải thay đổi cài đặt bảo mật macro của mình trong Outlook 2016 và trình chỉnh sửa VBA để nó hoạt động, nhưng sau khi hoàn thành, các hướng dẫn sẽ dễ dàng trôi chảy.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Bạn đã thay đổi cài đặt bảo mật macro trong outlook như thế nào và bạn đã thay đổi cài đặt này thành gì?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vì vậy, hai điều, một là nó không hiển thị theo cách tôi đã viết IE không có ký tự in đậm và hai là làm cách nào để thêm chữ ký? bởi vì nó hiển thị dưới dạng một liên kết siêu thay vì chữ ký thông thường của tôi. Cảm ơn đã giúp đỡ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Alex Mine cũng xuất hiện với định dạng bị loại bỏ. Làm thế nào để chúng tôi giữ nó?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó gửi tốt, nhưng nó làm mất tất cả các định dạng ưa thích mà tôi có trong nội dung email của mình. Tôi làm cách nào để giữ nguyên định dạng này ???
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cần biết làm cách nào \ nếu bạn có thể đính kèm một trang tính excel?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Này các cậu. Mã này hoạt động tốt nhưng tôi có một chút vấn đề. Email tôi đang cố gửi thuộc hai danh mục: Gửi tin nhắn (macro sử dụng) và PROGRAMARI RED-TEAM. Macro hoạt động tốt khi tôi chỉ thêm danh mục Gửi tin nhắn, nhưng ngay sau khi bất kỳ danh mục nào khác được thêm vào, macro sẽ ngừng gửi email. Đây là mã cho đến nay. Vui lòng trợ giúp: P Private Sub Application_Reminder (ByVal Item As Object) Dim objMsg As MailItem Set objMsg = Application.CreateItem (olMailItem) 'IPM.TaskItem để xem các Lời nhắc Nhiệm vụ If Item.MessageClass "IPM.Appointment" Sau đó Thoát Sub End Nếu If Item.Categories "Gửi tin nhắn" Sau đó thoát khỏi Sub End If objMsg.To = Item.Location objMsg.BCC = "andrei.buldus@promotor.ws" objMsg.Subject = "Instiintare expirare Autorizatie / Contract Service" objMsg.Body = "Buna ziua, "& vbNewLine & vbNewLine & _" Tuân theo bazei noastre de date, autorizatia / contractul de service, incheiat intre Compania nostra si "+ Item.Subject +" urmeaza sa hết hạn sau termen de 14 zile. " & vbNewLine & _ "Acest lucru este in atentia startedamentului nostru Service, si urmeaza sa fiti contactati trong cel mai scurt timp posibil pentru a stentili cursul actiunilor viitoare." & vbNewLine & vbNewLine & _ "Va multumim pentru unserea acordata." & vbNewLine & _ "Promotor Import Export SRL" & vbNewLine & vbNewLine & vbNewLine & _ "Acesta este un mesaj automat." objMsg.Send Set objMsg = Nothing End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
nó dừng lại vì dòng .... If Item.Categories <> "Gửi email định kỳ theo lịch trình" thì hãy thoát phụ
khi bạn thêm danh mục khác, nó đang sắp xếp thoát sub .... có thể sử dụng if lệnh (1, item.categories, "Gửi email định kỳ theo lịch trình") = 0 sau đó thoát sub hoặc tương tự như vậy ...
Không có bình luận nào được đăng ở đây
Tải thêm
Để 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