Bạn xem file đính kèm nhé!
à mà chucuoi92 cũng không it tuổi như bạn nghĩ đấu nhá.
Cám ơn anh nhiều, Mình 52 tuổi à. Font chữ và kích cỡ mình chỉnh chỗ nào được vậy anh.
Sub Gui_mail()
On Error Resume Next
Dim OutApp As Object, OutMail As Object
Dim objNsp As Object, colSyc As Object, objSyc As Object
Dim mailAddress As String, M_Subject As String, Body
Dim i As Long, k As Long, j As Long, h As Integer
Dim Signature
Dim data, Bluong As Range
Dim anh As Object
'On Error GoTo cleanup
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
Set objNsp = OutApp.Application.GetNamespace("MAPI")
Set colSyc = objNsp.SyncObjects
data = Sheet1.Range("A3:S" & Sheet1.Range("A1048576").End(xlUp).Row)
M_Subject = Sheet2.Range("A1").Value
For i = 1 To UBound(data)
Sheet2.Range("B2").Value = data(i, 1)
Set Bluong = Sheet2.Range("A1:B18")
Body = "Chào " & Sheet2.Range("B3").Value & "<BR>" & Sheet1.Range("W1").Value & "<BR>" & Sheet1.Range("W2").Value & "<BR>" ' & RangetoHTML(Bluong)
If data(i, 19) Like "**@**" Then
