Skip to main content

Posts

Showing posts from November, 2020

Mail_ReceivedOrNot_Mailed मेल प्राप्त हुआ या नहीं मिला

  Mail_ReceivedOrNot_Mailed Formula Used:- ="\\pgarg\Pk_Sharing_Folder\OutlookSaveDSRAttachment\Delhi_Ncr\"&TEXT(Q1,"DD-MM-YYYY")&"\"&"*" =IFERROR(@INDEX(List_Delhi_NCR,ROW()-2),"") Sub SetReminderMail_Delhi_NCR() Dim Sdate As String Dim sWorkbook As Workbook Dim sWorkbook1 As String Dim sWorkbook2 As String Dim wb As Workbook Dim objApp As Object Dim ws As Worksheet Dim destWB As Workbook Dim Path As String Dim sh As Object                  Application.DisplayAlerts = False         Application.ScreenUpdating = False 'Delete all file from folder temp2         On Error Resume Next         Kill "E:\Pkgarg_Record\Pkgarg_Final_Cril_Report\temp\*.*"         On Error GoTo 0 'Process start         On Error Resume Next         Set wb = Workbooks("\Mail_ReceivedOrNot_Mailed\Mail_ReceivedOrNot_Mailed.xlsm")  ...

OUTLOOK PROCESS FOR MAIL DOWNLOAD WITH USERFORM USERFORM के साथ मेल के लिए डाउनलोड प्रक्रिया

OUTLOOK PROCESS FOR MAIL DOWNLOAD WITH USERFORM For ThisOutlookSession Sub Call_SaveAttachment_UserForm() SaveAttachment_UserForm.Show False End Sub For Reminder in  ThisOutlookSession Private Sub application_Reminder(ByVal Item As Object) If TypeName(Item) = "TaskItem" Then     Dim myItem As TaskItem     Set myItem = Item     If myItem.Subject = "run macro SaveAttachment_DelhiNcr" Then          Call SaveAttachment_DelhiNcr          Else             Call SaveAttachment_Outstation          End If     End If           End Sub 'Private Sub application_Reminder(ByVal Item As Object) 'If TypeName(Item) = "TaskItem" Then  '   Dim myItem As TaskItem   '  Set myItem = Item    ' If myItem.Subject = "run macro SaveAttachment_Outstation" Then          'Call Save...