Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Function funGetEmailData(strFolder As String)
'strfolder is the name of the folder you want to look in
'dont forget to refernce oulook libaray if using in another 'app.
Dim olOutlook As Outlook.Application
Dim ns As Outlook.NameSpace
Dim fld As Outlook.MAPIFolder
Dim itm As Object
Dim MyMail As Outlook.MailItem
Dim int_cnt As Integer
'-----------
On Error Resume Next
Set olOutlook = CreateObject("Outlook.Application")
Set ns = olOutlook.GetNamespace("MAPI")
Set itm = ns.GetDefaultFolder(olFolderInbox)
Set itm = itm.Folders(strFolder)
int_cnt = 1
For Each MyMail In itm.Items
MyMail.Attachments.Item(1).SaveAsFile "H:\Temp " & int_cnt & " "
int_cnt = int_cnt + 1
Next
For Each MyMail In itm.Items
MyMail.Delete
Next
Set olOutlook = Nothing
Set ns = Nothing
Set itms = Nothing
Set MyMail = Nothing
End Function