[VBA]ดึงe-mailจาก outlook ได้ไม่หมด

[eyepop99]

สวัสดีครับ ผมต้องการทำไฟล์เอาไว้ tracking e-mail เริ่มด้วยการดึงe-mailจากoutlook
ผมดึงได้แล้วครับแต่ปัญหาคือ e-mail ไม่มีครบทั้งหมดจากinbox
โดยผมดึงe-mail จาก inbox ใน inboxมี e-mail อยู่ประมาน 5000 ครับ

- e-mail ที่มามาทั้งหมด 106 ฉบับ
- โดยดึงวันที่ 24-Jan-2020
e-mail ที่มาใหม่สุดวันที่ 14-Jan-2020 เวลา 10.41
e-mail ที่มาเก่าสุดวันที่ 6-Jan-2020 เวลา 8.38

อยากถามว่าจะต้องแก้ไขตรงไหนเพื่อที่จะพัฒนาต่อไปครับ
ปล.Post code ใน [code][/code] แล้วแต่ออกมาเป็นข้อความปกติครับ

[code]
Sub email_track()

On Error Resume Next
Dim olook As Outlook.Application
Set olook = New Outlook.Application

Dim ONSP As Outlook.Namespace
Set ONSP = olook.GetNamespace("MAPI")

Dim myfol As Outlook.Folder
Set myfol = ONSP.GetDefaultFolder(olFolderInbox)

Dim omail As Outlook.MailItem
Set omail = olook.CreateItem(olMailItem)

Dim subj_name_find As String
subj_name_find = Sheets("Sheet1").Range("B3").Value

Dim i As Integer
i = 1
For Each omail In myfol.Items

Sheets("Sheet1").Range("B5").Offset(i, 0).Value = omail.Subject
Sheets("Sheet1").Range("A5").Offset(i, 0).Value = omail.ReceivedTime

i = i + 1

Next

Set ONSP = Nothing
Set olook = Nothing
End Sub

[/code]

[snasui]

กรุณาปรับการโพสต์ Code ให้แสดงในรูปแบบ Code อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ

[eyepop99]

กรุณาปรับการโพสต์ Code ให้แสดงในรูปแบบ Code อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ

แก้ไขครับ
ส่วนหัวข้อที่เปิดมา ใส่ CODE แล้ว ไม่ขึ้นครับ

Code: Select all

Sub email_track()

On Error Resume Next
Dim olook As Outlook.Application
Set olook = New Outlook.Application

Dim ONSP As Outlook.Namespace
Set ONSP = olook.GetNamespace("MAPI")

Dim myfol As Outlook.Folder
Set myfol = ONSP.GetDefaultFolder(olFolderInbox)

Dim omail As Outlook.MailItem
Set omail = olook.CreateItem(olMailItem)

Dim subj_name_find As String
subj_name_find = Sheets("Sheet1").Range("B3").Value

Dim i As Integer
i = 1
For Each omail In myfol.Items

Sheets("Sheet1").Range("B5").Offset(i, 0).Value = omail.Subject
Sheets("Sheet1").Range("A5").Offset(i, 0).Value = omail.ReceivedTime

i = i + 1

Next

Set ONSP = Nothing
Set olook = Nothing
End Sub

[snasui]

ที่ไม่แสดงเป็น Code เพราะเผลอไปโดน Checkbox ตามภาพครับ

ส่วน Code ที่แนบมาเป็นการ Loop ทุกอีเมลใน Inbox ปกติก็ควรจะมาทั้งหมด ลองใช้ Code นับดูว่าได้เท่ากับที่ Loop มาได้หรือไม่ครับ