Lưu trữ tác giả: GiangTran_Admin

Free Windows Activator ✓ Activate Windows 7 10 11 Offline➤


Get Free Windows Activator to Activate Windows 7, 10, and 11 Easily

If you want to use your Windows operating system without any restrictions, a free windows activator can help you activate Windows 7, 10, and 11 easily. This tool allows you to unlock all the features of your Windows version without paying for a license. Using a free windows activator is a simple way to make sure your system runs smoothly and stays genuine.

Activating Windows with this tool ensures that you get regular updates and security patches from Microsoft. It also removes annoying activation messages that appear on your screen. Whether you have Windows 7, 10, or the latest Windows 11, the free windows activator works well to make your system fully functional.

Keep in mind that using a free windows activator is a quick solution for activation, but it’s important to download it from a safe source to avoid any risks. Once activated, your Windows will behave like a genuine copy, giving you access to all the benefits without any limitations. This makes the free windows activator a popular choice for many users who want to activate their Windows easily and without extra cost.

Key Features and Benefits of Free Windows Activator Tools

Free windows activator tools offer a variety of advantages that make activating your Windows system easier and more efficient. These tools serve as a reliable windows activation software, providing users with simple windows activation options to unlock full Windows functionality without needing to purchase a license.

One of the main benefits is that these activators act as a windows activation utility, automating the activation process and saving time. They often include multiple windows activation solutions, allowing compatibility with different Windows versions like Windows 7, 10, and 11. This flexibility ensures users can find the right windows activation program for their specific needs.

Additionally, free windows activator tools provide windows activation assistance by guiding users through the activation steps. They use smart windows activation strategies to bypass the need for a product key, making activation accessible even for those unfamiliar with technical details.

Here is a quick overview of the key benefits:

Feature Benefit
Automated Activation Process Saves time and effort
Multiple Activation Options Works with various Windows editions
No Product Key Required Easy activation without buying a license
User-Friendly Interface Provides clear windows activation assistance
Compatibility with Offline Use Activates Windows without internet connection

Using a free windows activator tool is a practical way to access all Windows features and updates, ensuring your system runs smoothly and securely.

How Free Windows Activator Works Without a Product Key

Free windows activator tools use clever windows activation strategies to activate Windows without needing a product key. Instead of entering a license code, these tools modify system files or use built-in Windows features to trick the operating system into thinking it is genuine.

This process involves a windows activation program that communicates with Windows activation servers or uses local activation methods. The windows activation utility applies these changes safely, allowing users to enjoy full Windows functionality instantly.

KMS Activator for Windows 10 and Windows 11 Editions

One popular windows activation solution is the KMS activator, which works well for Windows 10 and Windows 11 editions. This windows activation software mimics a Key Management Service (KMS) server, which is normally used by organizations to activate multiple computers.

The KMS activator acts as a windows activation program that sends activation requests locally, bypassing the need for an official Microsoft server. This method is effective and widely used because it supports various Windows editions and offers a reliable activation option.

Offline Windows Activator: Activate Windows Without Internet

Offline windows activation options are useful when internet access is limited or unavailable. These windows activation utilities allow users to activate Windows without connecting to the internet by using pre-stored activation data or local activation methods.

This approach provides windows activation assistance for users in remote areas or those who prefer not to connect their system online during activation. Offline activation is a convenient windows activation strategy that ensures Windows can be activated anytime, anywhere.

Windows 10 Pro Activator and CMD Activation Methods

For Windows 10 Pro users, specific windows activation programs use Command Prompt (CMD) commands to activate the system. These windows activation solutions involve running scripts or commands that trigger Windows activation processes directly through the command line.

This method is favored by advanced users who want precise control over the activation process. The CMD activation method is a powerful windows activation utility that complements other activation options, offering a flexible way to activate Windows 10 Pro efficiently.

Installation and Activation Guide for Free Windows Activator

Installing and activating Windows using a free activator can be straightforward if you follow the right steps. This windows activation guide will help you understand the windows activation process clearly. It also shares useful windows activation tips and windows activation tricks to make the experience smooth and safe. If you face any issues, windows activation support is available to assist you.

Before starting, make sure your system meets the necessary requirements and that you follow the instructions carefully. Using the free windows activator correctly ensures your Windows version becomes fully functional without any restrictions.

Step-by-Step Process to Activate Windows 7 Without a Product Key

Activating Windows 7 without a product key involves a few simple steps. Here is a clear list to guide you through the windows activation process:

  1. Download the free windows activator tool compatible with Windows 7.
  2. Disable your internet connection temporarily to avoid activation errors.
  3. Run the activator as an administrator.
  4. Follow the on-screen instructions to start the activation.
  5. Wait for the tool to complete the activation process.
  6. Restart your computer to apply changes.
  7. Reconnect to the internet and check activation status.

Tip: Always run the activator with administrator rights to avoid permission issues during activation.

Using CMD to Activate Windows 10 for Free

One of the most popular windows activation tricks for Windows 10 is using the Command Prompt (CMD). This method is part of the windows activation tips that many users find helpful. Here’s how you can do it:

  • Open Command Prompt as an administrator.
  • Enter specific activation commands to trigger the windows activation process.
  • Wait for confirmation that Windows has been activated.
  • Restart your PC to finalize the activation.
CMD Command Example Purpose
slmgr /ipk XXXXX-XXXXX Install a product key
slmgr /skms kms.server Set KMS server for activation
slmgr /ato Activate Windows online

Using CMD is a quick windows activation utility that does not require additional software.

Activating Windows 11 with Free Windows Activator Tools

Windows 11 users can also benefit from free windows activator tools designed for the latest operating system. The windows activation process for Windows 11 is similar but may require updated activator versions.

  • Download a windows activation program compatible with Windows 11.
  • Run the tool and follow the activation steps.
  • Use windows activation tricks like offline activation if internet access is limited.
  • Confirm activation status in system settings.

System Requirements for Running Windows Activation Software

Before using any free windows activator, check if your system meets these basic requirements to avoid errors during the windows activation process:

Requirement Details
Operating System Windows 7, 10, or 11
Processor 1 GHz or faster
RAM Minimum 1 GB for 32-bit, 2 GB for 64-bit
Disk Space At least 16 GB free space
Administrator Rights Required to run activation tools
Internet Connection Optional, depending on activation method

Ensuring your system meets these requirements helps the windows activation utility work smoothly and effectively.

Frequently Asked Questions About Free Windows Activator

Many people have questions about how to activate Windows using free tools. Understanding the process can help you use these tools safely and effectively. Below are some common questions and answers related to windows activation support, windows activation assistance, windows activation resources, and windows activation guide.

How Do I Activate My Windows for Free?

Activating Windows for free usually involves using special tools that help bypass the need for a paid license. These tools provide windows activation assistance by guiding you through simple steps to unlock full Windows features.

Here’s a basic windows activation guide to follow:

  • Download a trusted free windows activator.
  • Disable your internet temporarily to avoid activation errors.
  • Run the activator with administrator rights.
  • Follow the instructions provided by the tool.
  • Restart your computer after activation.

Using these steps, you can get windows activation support without needing to buy a product key.

Can I Activate Windows 10 Without a Product Key?

Yes, it is possible to activate Windows 10 without a product key by using certain windows activation resources. These resources include tools that use clever methods to activate Windows by simulating official activation servers or modifying system files.

Keep in mind:

  • This method provides windows activation assistance without purchasing a license.
  • It is important to follow a reliable windows activation guide to avoid mistakes.
  • Some activators work offline, which is helpful if you don’t have internet access.

How to Activate Windows 10 for Free Using CMD?

Using Command Prompt (CMD) is a popular way to activate Windows 10 for free. This method involves typing specific commands that trigger the activation process.

Here is a simple list of commands often used:

CMD Command What It Does
slmgr /ipk XXXXX-XXXXX Installs a product key
slmgr /skms kms.server Sets the KMS server for activation
slmgr /ato Activates Windows online

This approach offers windows activation assistance by allowing users to activate Windows without extra software. It is a handy windows activation resource for those comfortable with command-line tools.

How to Get a Windows 10 Product Key?

If you want to activate Windows 10 officially, you need a product key. Here are some ways to get one:

  • Buy a genuine product key from Microsoft or authorized sellers.
  • Check if your computer came with a pre-installed Windows license.
  • Use a digital license linked to your Microsoft account.

For those who need windows activation support, following a clear windows activation guide is important to enter the product key correctly and activate Windows without issues.

Note: Always use legitimate methods to obtain a product key to ensure your Windows stays genuine and receives updates.

Phân tích dữ liệu với Tableau – Lập kế hoạch

Dự án xây dựng các báo cáo trực quan dữ liệu cho phòng kế hoạch

Phân tích hoạt động truyền thông với Tableau

Dự án thực tế từ tổng công ty EVN với bài toán báo cáo phân tích dữ liệu truyền thông theo hoạt động phòng Hành Chính

Data analysic – Tableau

Dự án mẫu với Tableau về Hoạt động kinh doanh

Dự án tổng thể

Các AI vẽ hình thay thế Midjoney

Sử dụng website https://clipdrop.co/

Để tạo hình ảnh bằng Clipdrop, bạn có thể làm theo các bước sau:

  1. Truy cập vào trang web https://clipdrop.co/.
  2. Đăng ký tài khoản hoặc đăng nhập nếu bạn đã có tài khoản.
  3. Sau khi đăng nhập, bạn sẽ thấy một danh sách các công cụ và tính năng của Clipdrop.
  4. Để tạo hình ảnh, bạn có thể sử dụng các công cụ như “Stable Diffusion XL”, “Reimagine XL”, “Stable Doodle” hoặc “Cleanup”.
  • Stable Diffusion XL: Tạo hình ảnh có độ phân giải cao và chân thực bằng trí tuệ nhân tạo.
  • Reimagine XL: Tạo nhiều biến thể của một hình ảnh bằng Stable Diffusion.
  • Stable Doodle: Chuyển đổi những phác thảo của bạn thành hình ảnh thực trong vài giây.
  • Cleanup: Xóa bỏ các đối tượng, người, văn bản và khuyết điểm từ hình ảnh tự động.
  1. Chọn công cụ tương ứng với tác vụ bạn muốn thực hiện.
  2. Tải lên hình ảnh của bạn từ máy tính hoặc thiết bị di động.
  3. Chờ đợi quá trình xử lý hình ảnh hoàn thành.
  4. Sau khi xử lý hoàn thành, bạn có thể xem trước kết quả và tải xuống hình ảnh đã tạo.

Lưu ý rằng Clipdrop cũng cung cấp các ứng dụng di động trên iOS và Android để bạn có thể tạo hình ảnh trực tiếp trên điện thoại di động của mình. Bạn có thể tìm và tải xuống ứng dụng từ App Store hoặc Google Play Store.

Nếu đăng ký tài khoản Clipdrop miễn phí, bạn sẽ nhận được 400 hình ảnh có hình mờ mỗi ngày và bạn cũng có thể sử dụng các công cụ khác của Clipdrop, như công cụ xóa nền, công cụ nâng cấp hình ảnh và công cụ chỉnh sáng được hỗ trợ bởi AI. Nếu bạn cần nhiều hơn, gói Pro bắt đầu ở mức 9 USD/tháng cho 1.500 hình ảnh không có hình mờ mỗi ngày cộng với khả năng sử dụng không giới hạn hầu hết các công cụ khác của Clipdrop.

DreamStudio

Truy cập vào trang web https://dreamstudio.ai.

Trên trang chủ của DreamStudio, bạn sẽ thấy một loạt các ứng dụng và công cụ để tạo hình ảnh.

Tìm và chọn công cụ hoặc ứng dụng mà bạn muốn sử dụng. Ví dụ: “Photo Editor”, “Background Remover”, “Collage Maker”, “Artistic Filters”,…

Khi bạn chọn một công cụ cụ thể, một giao diện hoặc ứng dụng sẽ mở ra.

Theo hướng dẫn trong giao diện hoặc ứng dụng, tải lên hình ảnh mà bạn muốn chỉnh sửa hoặc sử dụng.

Thực hiện các chỉnh sửa hoặc áp dụng các hiệu ứng và bộ lọc tùy chọn cho hình ảnh của bạn.

Khi bạn đã hoàn thành chỉnh sửa, bạn có thể lưu hình ảnh kết quả xuống máy tính hoặc thiết bị của mình.

Nếu bạn sử dụng một ứng dụng di động từ DreamStudio, bạn cũng có thể lưu hình ảnh trực tiếp vào thư viện ảnh của điện thoại hoặc chia sẻ nó trên mạng xã hội.

DreamStudio cung cấp nhiều công cụ và tính năng khác nhau để bạn tạo hình ảnh theo ý thích. Hãy khám phá và tận hưởng quá trình tạo hình ảnh sáng tạo với DreamStudio!

Hạn chế của dreamStudio là chỉ miễn phí 25 ảnh

Tìm hiểu về phân tích dữ liệu

Là một nhà phân tích dữ liệu, bạn cần quan tâm đến về tất cả dữ liệu được tạo ra mỗi ngày và dữ liệu đó có sẵn trong một tổ chức, từ dữ liệu giao dịch trong cơ sở dữ liệu truyền thống, dữ liệu đo từ xa từ các dịch vụ mà bạn sử dụng, đến các tín hiệu mà bạn nhận được từ các lĩnh vực khác nhau như mạng xã hội.
Ví dụ: các doanh nghiệp bán lẻ ngày nay thu thập và lưu trữ một lượng lớn dữ liệu theo dõi các mặt hàng bạn đã nhập và mua, các trang bạn đã truy cập trên trang web của họ, các cách thức bạn mua sản phẩm, thói quen chi tiêu của bạn và hơn thế nữa.
Với dữ liệu và thông tin là tài sản chiến lược nhất của doanh nghiệp, thách thức cơ bản mà các tổ chức có ngày nay là hiểu và sử dụng dữ liệu của họ để tạo ra những thay đổi tích cực trong doanh nghiệp. Các doanh nghiệp tiếp tục phân tích, nghiên cứu để sử dụng dữ liệu của họ một cách có ý nghĩa và hiệu quả, điều này ảnh hưởng đến khả năng ra quyết định hành động kinh doanh của họ.
Một doanh nghiệp bán lẻ phải có thể sử dụng lượng lớn dữ liệu và thông tin của họ theo cách có tác động đến hoạt động kinh doanh, bao gồm:
- Theo dõi hàng tồn kho 
- Xác định thói quen mua hàng 
- Phát hiện xu hướng và phân loại nhóm người dùng
- Đề xuất – gợi ý mua hàng  
- Xác định mức giá tối ưu cho sản phẩm và dịch vụ
- Xác định và ngăn chặn gian lận
Ngoài ra, bạn có thể đang tìm kiếm các sản phẩm dịch vụ giảm giá hàng ngày/ hàng tháng. Ví dụ: các phân đoạn dữ liệu phổ biến mà bạn có thể muốn kiểm tra bao gồm hàng ngày, hàng tuần và hàng tháng để bạn có thể so sánh mức độ bán hàng đã đạt được như thế nào trong cùng một tuần năm ngoái. 
Chìa khóa để mở khóa dữ liệu này là có thể kể một câu chuyện với dữ liệu. Trong thế giới kinh doanh có nhịp độ nhanh và cạnh tranh cao ngày nay, việc tạo ra các câu chuyện về báo cáo này giúp các nhà lãnh đạo doanh nghiệp thực hiện đưa ra các quyết định hành động dựa trên dữ liệu. Các nhà ra quyết định kinh doanh phụ thuộc vào một câu chuyện chính xác để đưa ra các quyết định kinh doanh tốt hơn. Một doanh nghiệp có thể đưa ra quyết định chính xác càng nhanh thì họ càng có sức cạnh tranh và càng có lợi thế tốt hơn. Nếu không có câu chuyện, rất khó để hiểu dữ liệu đang muốn nói với bạn điều gì. 
Tuy nhiên, chỉ có dữ liệu là không đủ. Bạn cần có khả năng hành động trên dữ liệu để tạo ra sự thay đổi trong doanh nghiệp. Hành động đó có thể liên quan đến việc phân bổ lại các nguồn lực trong doanh nghiệp để đáp ứng nhu cầu, hoặc nó có thể là xác định một chiến dịch thất bại và biết khi nào cần thay đổi hướng đi. Những tình huống này Có thể tìm thấy trong các câu chuyện phân tích dữ liệu bạn mang lại. 
Thách thức cơ bản mà các doanh nghiệp phải đối mặt ngày nay là hiểu và sử dụng dữ liệu của họ theo cách có tác động đến hoạt động kinh doanh và cuối cùng là lợi nhuận của họ. Bạn cần có khả năng xem dữ liệu và tạo điều kiện cho các quyết định kinh doanh đáng tin cậy. Sau đó, bạn cần có khả năng xem xét các số liệu và hiểu rõ ràng ý nghĩa đằng sau các số liệu đó. 
Yêu cầu này có vẻ khó khăn, nhưng đó là một nhiệm vụ mà bạn có thể hoàn thành. Bước đầu tiên của bạn là hợp tác với các chuyên gia dữ liệu trong tổ chức của bạn, chẳng hạn như kỹ sư dữ liệu và nhà khoa học dữ liệu, để giúp lấy dữ liệu mà bạn cần để xây câu chuyện về dữ liệu. Yêu cầu các chuyên gia này tham gia vào hành trình nghiên cứu phân tích dữ liệu đó với bạn. 
Hành trình kể một câu chuyện bằng dữ liệu của bạn cũng liên quan đến việc xây dựng văn hóa dữ liệu đó trong tổ chức của bạn. Trong khi kể chuyện, đảm bảo rằng những câu chuyện được kể đến đúng người. Ngoài ra, hãy đảm bảo rằng mọi người có thể khám phá câu chuyện, rằng họ biết tìm nó ở đâu và đó là một phần của các tương tác thường xuyên. 
Phân tích dữ liệu tồn tại để hỗ trợ các doanh nghiệp tìm kiếm thông tin chi tiết và khám phá giá trị tiềm ẩn trong vô số dữ liệu thông qua cách kể chuyện về dữ liệu.Trong khóa học, bạn sẽ học cách sử dụng và áp dụng các kỹ năng phân tích để từ một báo cáo duy nhất bạn có thể tìm ra được các tác động và ảnh hưởng đến tổ chức của bạn.

Code gộp các sheet trong file excel vào 1 sheet Tổng hợp

VBA

Option Explicit

‘ Tao chuc nang tim ra DONG cuoi cung

Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:=”*”, after:=sh.Range(“A1”), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
On Error GoTo 0
End Function

‘ Tao chuc nang tim ra COT cuoi cung

Function Lastcol(sh As Worksheet)
On Error Resume Next
Lastcol = sh.Cells.Find(What:=”*”, after:=sh.Range(“A1”), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False).Column
On Error GoTo 0
End Function

‘ Tao lenh GOPSHEET

Sub Gopsheet()
Dim sh As Worksheet
Dim DestSh As Worksheet
Dim Last As Long
Dim shLast As Long
Dim CopyRng As Range
Dim StartRow As Long
With Application
.ScreenUpdating = False
.EnableEvents = False
End With

‘ XÓA bo sheet TONGHOP neu no da duoc thiet lap

Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.Worksheets(“TONGHOP”).Delete
On Error GoTo 0
Application.DisplayAlerts = True

‘ TAO 1 sheet moi ten TONGHOP

Set DestSh = ActiveWorkbook.Worksheets.Add
DestSh.Name = “TONGHOP”

‘Nhap dong bat dau
StartRow = Application.InputBox(“CHON GOP BAT DAU TU DONG NAO”, “Giangtranvn.com”, 2)

‘ Chay qua tat cac cac sheet va thuc hien copy du lieu vao sheet TONGHOP

For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> DestSh.Name Then

‘ Tim don cuoi cung trong sheet tong hop va sheet thanh phan

Last = LastRow(DestSh)
shLast = LastRow(sh)

‘ Thuc hien copy du kieu khi sheet du lieu KHONG RONG va dong CUOI > dong BAT DAU
If shLast > 0 And shLast >= StartRow Then

‘ thiet lap VUNG can copy

        Set CopyRng = sh.Range(sh.Rows(StartRow), sh.Rows(shLast))

‘ Kiem tra xem sheet TONGHOP co du dong de copy sang khong

           If Last + CopyRng.Rows.Count > DestSh.Rows.Count Then
              MsgBox "Khong du dong trong bang TONGHOP de copy sang"
              GoTo ExitTheSub
           End If

‘ Copy du lieu o dang GIA TRI

           CopyRng.Copy
           With DestSh.Cells(Last + 1, "A")
               .PasteSpecial xlPasteValues
               .PasteSpecial xlPasteFormats
               Application.CutCopyMode = False
           End With

       End If

   End If

Next

ExitTheSub:

Application.GoTo DestSh.Cells(1)

‘ Tu dong dieu chinh so cot theo sheet TONGHOP

DestSh.Columns.AutoFit

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

Code gửi email trong access

VBA
Send email from MS Access using VBA and SMTP protocol
To better demonstrate how to send email using SMTP protocol in Access + VBA, let’s open MS Access, select blank database, and name it as Sample.accdb. Create a table named Users like this:
vba_access.jpgAfter you input the data, create a form named Users_From like this:
Menu -> Create -> Multiple Items
vba access create formRight click Users_Form -> Design View, Add two buttons by Design -> Select Button control:
vba access add buttonWhen you put the button on the form, it will popup a dialog box, simply click Cancel, then right click the button -> properties, set first button name to btnSend and Caption to Send Mail, set second button name to btnCancel and Caption to Cancel.
Please also add an extra button named btnFocus, and put it to anywhere on the form, it is used to help setting focus for other buttons.
vba access named button.Installation
EASendMail is a SMTP component which supports all operations of SMTP/ESMTP protocols (RFC 821, RFC 822, RFC 2554). Before you can use the following example codes, you should download the EASendMail Installer and install it on your machine at first.
Add Reference
To use EASendMail SMTP ActiveX Object in VBA project, the first step is “Add reference of EASendMail to your project”. Open VBA IDE by press Alt+F11, Please select menu -> Tools -> References -> and select EASendMailObj ActiveX Object, click OK, the reference will be added to current VBA project, and you can start to use it to send email in your project.
add reference in VBA
[Access + VBA - Send email - Example]
After the reference is added, click Form_Users_From and input the following codes:
Please enable Macro if you closed and re-opened this database, otherwise the codes cannot be executed.
access enable macroImportant
You need to access the Trust Center in the Access Options dialog box. Click the Microsoft Office Button, and then click Access Options. In the Trust Center category, click Trust Center Settings, and then click the Macro Settings category.



' To use the following codes, please download and install
' https://www.emailarchitect.net/webapp/download/easendmail.exe on your machine

Option Compare Database

Private WithEvents oSmtp As EASendMailObjLib.Mail
Private CurrentEmailIsFinished As Boolean
Private HasErrorWithEmail As Boolean
Private ErrorDescription As String
Private CancelSending As Boolean

Private Sub InitVariables()
    CurrentEmailIsFinished = True
    HasErrorWithEmail = False
    ErrorDescription = ""
    CancelSending = False
End Sub

Private Sub btnCancel_Click()
    btnFocus.SetFocus
    btnCancel.Enabled = False
    If Not (oSmtp Is Nothing) Then
        oSmtp.Terminate
        CancelSending = True
        CurrentEmailIsFinished = True
    End If
End Sub

Private Sub Form_Load()
    btnCancel.Enabled = False
    btnSend.Enabled = True
    btnFocus.TabStop = False
    btnFocus.Transparent = True
    InitVariables
End Sub

Private Sub btnSend_Click()
    btnFocus.SetFocus
    btnCancel.Enabled = True
    btnSend.Enabled = False

    SendMailFromAccess

    btnCancel.Enabled = False
    btnSend.Enabled = True
End Sub

Private Sub oSmtp_OnAuthenticated()
    SysCmd acSysCmdSetStatus, "Authenticated"
End Sub

Private Sub oSmtp_OnClosed()
    CurrentEmailIsFinished = True
End Sub

Private Sub oSmtp_OnConnected()
    SysCmd acSysCmdSetStatus, "Connected"
End Sub

Private Sub oSmtp_OnError(ByVal lError As Long, ByVal ErrDescription As String)
    HasErrorWithEmail = True
    CurrentEmailIsFinished = True
    ErrorDescription = ErrDescription
End Sub

Private Sub oSmtp_OnSending(ByVal lSent As Long, ByVal lTotal As Long)
    SysCmd acSysCmdSetStatus, "Sending " & lSent & "/" & lTotal & " ..."
End Sub

Public Sub SendMailFromAccess()

    Dim sender, Name, address, subject, bodyTemplate, body, bodyFormat
    bodyFormat = 0 'Text body format

    ' Please change sender address to yours
    sender = "test@emailarchitect.net"
    subject = "Test email from MS Access and VBA"

    ' Use a body template to build body text based on recipient's name
    bodyTemplate = "Dear {name}," & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
        "This is a test email from MS Access using VBA, do not reply."

    Dim rs, sql
    Set rs = CreateObject("ADODB.Recordset")

    sql = Me.RecordSource
    If Me.FilterOn Then
        sql = sql & " WHERE " & Me.Filter
    End If

    rs.Open sql, CurrentProject.Connection
    rs.MoveFirst

    Dim emailSent
    emailSent = 0

    Do While Not rs.EOF
        Name = Trim(rs!Name)
        address = Trim(rs!Email)
        body = Replace(bodyTemplate, "{name}", Name)

        If Not SendMailTo(sender, Name, address, subject, body, bodyFormat) Then
            Exit Sub
        End If

        emailSent = emailSent + 1
        rs.MoveNext

    Loop

    SysCmd acSysCmdSetStatus, "Total " & emailSent & " email(s) sent."

End Sub

Function SendMailTo(sender, Name, address, subject, body, bodyFormat)

    Set oSmtp = New EASendMailObjLib.Mail
    oSmtp.LicenseCode = "TryIt"

    ' Please change server address, user, password to yours
    oSmtp.ServerAddr = "mail.emailarchitect.net"
    oSmtp.UserName = "test@emailarchitect.net"
    oSmtp.Password = "yourpassword"

    ' Set server port, if 25 port doesn't work, try to use 587 port
    oSmtp.ServerPort = 25

    ' Using TryTLS,
    ' If smtp server supports TLS, then TLS connection is used; otherwise, normal TCP connection is used.
    ' https://www.emailarchitect.net/easendmail/sdk/?ct=connecttype
    oSmtp.ConnectType = 4

    ' If your server is Exchange 2007 or later version, you can use EWS protocol.
    ' https://www.emailarchitect.net/easendmail/sdk/?ct=protocol
    ' Set Exchange Web Service Protocol - EWS - Exchange 2007/2010/2013/2016
    ' oSmtp.Protocol = 1

    oSmtp.FromAddr = sender
    oSmtp.AddRecipient Name, address, 0

    oSmtp.subject = subject
    oSmtp.bodyFormat = bodyFormat
    oSmtp.BodyText = body

    ' You can add attachment like this:
    ' Add attachment from local disk
    ' If oSmtp.AddAttachment("d:\test.jpg") <> 0 Then
        ' Application.StatusBar = "Failed to add attachment with error:" & oSmtp.GetLastErrDescription()
        ' SendMailTo = False
        ' Exit Function
    'End If

    SysCmd acSysCmdSetStatus, "Connecting " & oSmtp.ServerAddr & " ..."

    oSmtp.Asynchronous = 1
    InitVariables
    CurrentEmailIsFinished = False
    oSmtp.SendMail

    Do While Not CurrentEmailIsFinished
        ' Wait for the email sending, you can do other thing here
        DoEvents
    Loop

    If CancelSending Then
        SysCmd acSysCmdSetStatus, "Operation was terminated by user!"
        SendMailTo = False
    ElseIf HasErrorWithEmail Then
        SysCmd acSysCmdSetStatus, "Failed to send email to " & address & "; " & ErrorDescription
        SendMailTo = False
    Else
        SysCmd acSysCmdSetStatus, "Message to " & address & " has been submitted to server."
        SendMailTo = True
    End If

    Set oSmtp = Nothing
End Function

Close VBA IDE and back to Access, double click this form to display the form, and then click Send Mail.

You will see the status and result at Access status bar.

access status bar

Kiến thức về Microsoft Access

Access 2016

Microsoft Access là một thành phần trong bộ Microsoft Office, cung cấp cho người dùng giao diện thân thiện và các thao tác đơn giản, trực quan trong việc xây dựng và quản trị cơ sở dữ liệu cũng như xây dựng các ứng dụng cơ sở dữ liệu. Người học có thể thực hiện các thao tác thông dụng đối với một hệ quản trị cơ sở dữ liệu thông qua phần mềm Microsoft Access. Biết tạo ra bảng, truy vấn để tìm kiếm thông tin, tạo các biểu mẫu để nhập dữ liệu và tạo các báo cáo kết xuất dữ liệu.

1. Để bắt đầu khóa học. Các bạn vui lòng bấm vào ĐĂNG KÝ thông tin học viên để vào lớp học. Hoặc quét mã QR để đăng ký:

qrcode dang ky

2. Dựa và các TÀI NGUYÊN có sẵn bên dưới. Chúng ta sẽ cùng nhau tìm hiểu và thực hiện yêu cầu của từng buổi học.

Bộ Giáo trình Office
TÀI LIỆU thực hành theo buổi học 

4.  Sau khi kết thúc khóa học. Các bạn vui lòng thực hiện bài kiểm tra kiến thức sau: – Phần thi lý thuyết: Kiến thức về Access

Phần thi Thực Hành