1/15/2024 0 Comments Kelk 2010 very slow![]() MinutesElapsed = Format((Timer - StartTime) / 86400, "hh:mm:ss") ![]() If Right(atmt.fileName, 3) = "pdf" Or Right(atmt.fileName, 3) = "jpg" And atmt.Size > 45000 Or Right(atmt.fileName, 3) = "JPG" And atmt.Size > 45000 Then Or InStr(atmt.fileName, "accou") > 0 Then If InStr(atmt.fileName, "port") > 0 Or InStr(atmt.fileName, "certifie") > 0 Or InStr(atmt.fileName, "lice") > 0 Or InStr(atmt.fileName, "secu") > 0 _ ![]() If InStr(Item.Body, "pass") > 0 Or InStr(Item.Body, "certifi") > 0 Or InStr(Item.Body, "licen") > 0 Or InStr(Item.Body, "secur") > 0 _įileName = MyDocs() & Item.SenderName & " " & atmt.fileName MsgBox "There are no valid emails in your Inbox.", vbInformation, "Nothing Found" Set Inbox = ns.GetDefaultFolder(olFolderInbox) 'References : Microsoft Outlook 16.0 Object Libraryĭeclare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |