Hướng dẫn code dán hình vào nội dung mail trong file gửi mail hàng loạt

[saobekhonglac]

Chào anh/chị.

Hiện tại em có sử dụng file gửi mail hàng loạt, trong file có chức năng đính kèm file. Để thuận tiện theo dõi nội dung mail mà không cần phải mở file đính kèm nhờ anh/chị hướng dẫn giúp em tạo giúp em code sau cho từ động dán hình vào nội dung mail với.

Cám ơn.

Sub Send_Mail()
'Working in 2000-2010
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim Signature As String
Dim cont As String
Dim ct1 As String, ct2 As String, ct3 As String
Dim i As Integer, n As Integer

ct1 = Trim(Sheets("Set_up").Range("F12").Value)
ct2 = Trim(Sheets("Set_up").Range("F13").Value)
ct3 = Trim(Sheets("Set_up").Range("F14").Value)

cont = ct1 & ct2 & ct3

Sheets("Set_up").Select
Range("I8").Select
Range(Selection, Selection.End(xlDown)).Select
n = Selection.Count

Sheets("Set_up").Select
Range("Group").Select

For i = 1 To n
Group = Trim(Sheets("Set_up").Cells(i + 7, 9).Value)
Sheets("Set_up").Range("Group").Value = Group

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.Display
End With
Signature = OutMail.htmlBody

On Error Resume Next

With OutMail
.To = Trim(Sheets("Set_up").Range("Recipient").Value)
.cc = Trim(Sheets("Set_up").Range("Cc").Value)
.Subject = Trim(Sheets("Set_up").Range("Subject").Value)
.htmlBody = cont & Signature
.Attachments.Add Trim(Sheets("Set_up").Range("PathFile").Value)
'.Display
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
'MsgBox ("Send Mail Completed!")
Next i
End Sub

 

[befaint]

Chào anh/chị.

Hiện tại em có sử dụng file gửi mail hàng loạt, trong file có chức năng đính kèm file. Để thuận tiện theo dõi nội dung mail mà không cần phải mở file đính kèm nhờ anh/chị hướng dẫn giúp em tạo giúp em code sau cho từ động dán hình vào nội dung mail với.

Xem bài #5:
http://www.giaiphapexcel.com/diendan/threads/gửi-email-từ-excel-bằng-vba.122394/#post-767131

 

[saobekhonglac]

View attachment 180034
Xem bài #5:
http://www.giaiphapexcel.com/diendan/threads/gửi-email-từ-excel-bằng-vba.122394/#post-767131

Xem rồi mà mình vẫn chưa hiểu bạn ơi

 

[befaint]

Xem rồi mà mình vẫn chưa hiểu bạn ơi

Đọc từ bài #1 tới bài #5 thôi. Làm hết cho rồi. Giờ chỉ cần chỉnh yêu cầu của mình kiểu như yêu cầu bài #1 là xong.

 

[vodinhnam]

Đọc từ bài #1 tới bài #5 thôi. Làm hết cho rồi. Giờ chỉ cần chỉnh yêu cầu của mình kiểu như yêu cầu bài #1 là xong.

File của anh em dùng thử rồi, gửi mail với SL nhỏ thì không sao, em đưa dữ liệu trên 1000 bản ghi là máy em nó treo luôn.

 

[befaint]

File của anh em dùng thử rồi, gửi mail với SL nhỏ thì không sao, em đưa dữ liệu trên 1000 bản ghi là máy em nó treo luôn.

Vậy nâng cấp cấu hình máy tính xem. Gửi trong 1 lúc 1000 email đường truyền mạng cỡ 80Mbps còn nghẽn đường truyền ấy chứ

(1000 email có phải spam không ta?)