Làm sao attach file khi goi mail? Anh chi nào có code này không?

[Quang_Hải]

Mình mò mẫm hoài nhưng không cách nào attach được file theo mail
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = [AA3].Value
.Cc = [AB3].Value
.Subject = [AA1]
.Body = "Dear , "
.Display
End With
Set OutMail = Nothing

On Error GoTo 0

Set OutApp = Nothing
Set Addresslist = Nothing

 

[khoa140383]

Bạn thử ngâm cứu code này nha !!

Sub tst5()
Dim bd As Range, t As Range, c As Range, b As Range
Set t = Sheet1.Range("A1")
Set c = Sheet1.Range("A2")
Set b = Sheet1.Range("A3")
Set bd = Sheet1.Range("A4")
With CreateObject("Outlook.Application").CreateItem(0)
.to = t '"aa@bb.com;aa@bb.net"
.CC = c '"cc@dd.com;ee@ff.com"
.BCC = b '"gg@hh.com;ii@jj.com"
.Subject = "test"
.body = bd '"paragraph 1" & vbCr & "paragraph 2"
.Attachments.Add "C:\Documents and Settings\dhluser\My Documents\My Scans\DN# 0098157213.pdf"
.Attachments.Add "C:\Documents and Settings\dhluser\My Documents\My Scans\DN# 0098156456.pdf"
.display
End With
End Sub

Have a nice day !!!

 

[ndu96081631]

Mình mò mẫm hoài nhưng không cách nào attach được file theo mail
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = [AA3].Value
.Cc = [AB3].Value
.Subject = [AA1]
.Body = "Dear , "
.Display
End With
Set OutMail = Nothing

On Error GoTo 0

Set OutApp = Nothing
Set Addresslist = Nothing

Đoạn này:

With OutMail
   .....
   ......
End With

Thử thêm vầy xem

With OutMail
   .Attachments.Add "Đường dẫn đến file"
End With

 

[Quang_Hải]

Không biết tại sao máy tính của mình không hiểu được code "Attachments"
Thông thường máy tính sẽ tự động viết hoa, nhưng mình thử viết thì attachments cứ trơ ra đó không đổi thành chữ hoa nên code không hoạt động

 

[Quang_Hải]

Cảm ơn các bạn, code đã chạy tốt rồi