Search:

Type: Posts; User: ZVI; Keyword(s):

Page 1 of 6 1 2 3 4

Search: Search took 0.14 seconds.

  1. Replies
    17
    Views
    126

    Re: Attachment Download

    The below code works with any input emails independently of input folder:


    ' Code of ThisOutlookSession
    Option Explicit

    Private Sub Application_Startup()
    ' Do nothing, but this tries to...
  2. Replies
    17
    Views
    126

    Re: Attachment Download

    Well, does the below code work?


    Option Explicit

    Public WithEvents objInboxItems As Outlook.Items

    ' Run this code manually for the testing or reload Outlook
    Private Sub...
  3. Replies
    17
    Views
    126

    Re: Attachment Download

    And please do you have 1 or more accounts?
  4. Replies
    17
    Views
    126

    Re: Attachment Download

    The code requirs full Outlook's path from the root to the Folder with subfolders.
    Could you post it?
    If it is a common folder then code may not work, it depends on server configuration
  5. Replies
    17
    Views
    126

    Re: Attachment Download

    When you are running Test, does it show Folder name where emails are expected to be?
  6. Re: VBA Error window has changed - no more Debug button

    But this code get Compile Error with X-button.


    Option Explicit
    Sub Test()
    i = 0
    End Sub

    Just for the case , make sure that Option Explicit code line is in all code modules,
    then try...
  7. Re: VBA Error window has changed - no more Debug button

    I meant that there is no X-button (to close) in internal error message of VBE, but it is in MsgBox.
    Some AddIns (Excel's or COM) can produce such a message box.
    Try temporary disabling all...
  8. Replies
    17
    Views
    126

    Re: Attachment Download

    Run manually the Test, it shows the Folder where emails are expected for the code.
    Is this folder correct for your purpose?
    Emails coming into other folders do not trigger the code

    As to the...
  9. Re: VBA Error window has changed - no more Debug button

    Thanks for testing, have no good ideas then.
    May be something is damaged in the workbook structure or in VBA compiled chains.
    If possible please share that workbook for analyzing without sensitive...
  10. Re: VBA Error window has changed - no more Debug button

    This can be just a msgbox, like this:


    Sub Test()
    On Error Resume Next
    Err.Raise 91 '<-- Error 91 simulation
    If Err Then MsgBox Err.Description, vbExclamation + vbMsgBoxHelpButton
    End...
  11. Replies
    2
    Views
    90

    Re: Combine Two VBA Codes

    Hi,
    You may try this:


    Sub SheetsToCsv()

    Const ExcludeSheets = "/Taxonomy/Master/Directions/EU Shipping & Gift Wrap/Tax Rates/RuleFile/TDM/"

    Dim sDate As String, sFolderName As...
  12. Replies
    17
    Views
    126

    Re: Attachment Download

    The code of objInboxItems_ItemAdd is triggered in case emails are going to this folder:


    Sub Test()
    With Session.GetDefaultFolder(olFolderInbox)
    MsgBox .Parent & "/" & .Name
    End With...
  13. Replies
    1
    Views
    59

    Re: Docking Station affecting add-ins?

    Hi,

    Your assumption is correct.
    At loading Excel is trying to load all installed AddIns and suggest to delete from the list of AddIns those not found/disconnected.

    The simlest suggestion is to...
  14. Re: EXCEL/VBA QUESTION - how to open outlook and access one email content from inbox and further process using VBA

    Hi,
    You may start with this code:


    Sub Save_CSV_attachment()

    ' Outlook constant
    Const olFolderInbox = 6

    ' Settings, change to suit
  15. Replies
    4
    Views
    153

    Re: VBA code already there in brand new file

    Or may be it's just Option Explicit code line there.
    If so then you can ignore that as it does not saved with XLSX, such a behavior can be disabled in VBE - Tools - Options - Editor - Require...
  16. Replies
    3
    Views
    144

    Re: Formatting a Text String in VBA

    You are welcome, thanks for the feedback
  17. Replies
    3
    Views
    144

    Re: Formatting a Text String in VBA

    Hi and welcome to MrExcel forum!
    Try this:
    

    Function MAR_Message_SECURE() As String

    Const Font1 = "<" & "span style='font-family:Arial;color:skyblue;font-weight:bold;font-size:14pt'" &...
  18. Thread: Compile Error

    by ZVI
    Replies
    5
    Views
    126

    Re: Compile Error

    If code is working with other workbooks then my suggestion in post 2 can't help.
    However, one of the problem can be in a fact that XLSMs is blocked.
    How to unblock XLSM read in this page of JKP...
  19. Re: Userform - If value is not found then displays a MsgBox

    One more way
    

    Private Sub CommandButton1_Click()
    Dim x As Long
    Dim y As Long
    Dim IsFound As Boolean
    x = Sheets("ACCOUNT_ASSIGN").Range("A" & Rows.Count).End(xlUp).Row
    For y = 2 To...
  20. Re: Userform - If value is not found then displays a MsgBox

    Hi and welcome to MrExcel!
    Just insert this code line after the Next y
    

    If y > x Then MsgBox "Not found"


    And add Exit Sub before End If
  21. Re: Textbox in User-form displaying three digits (first digit is a 0)

    Hi,
    Try something like this
    

    T07.Value = Format(.Cells(.Range(strAddress).Row, 7).Value, "000")
  22. Thread: Compile Error

    by ZVI
    Replies
    5
    Views
    126

    Re: Compile Error

    Hi,
    Not sure about the reason of the issue, check the absence of the 'MISSING:...' items in VBE-Tools-References
    You may also try this - Set xExcelApp = New Excel.Application instead of the code...
  23. Replies
    14
    Views
    293

    Re: TRIM in VBA on a Range

    Just for fun, this also can be used:


    Sub TrimRange()
    With Range("A1:A6000")
    .Value = Application.Trim(.Value)
    End With
    End Sub
    :)
  24. Re: Excel VBA Sort Largest to Smallest with Row Groups

    Well, I see the already outlined source data, try this with clearing of that outline:


    Sub Outline()

    Dim a()
    Dim i As Long
    Dim Total As Double, v As Double
    Dim Rng As Range
  25. Re: Excel VBA Sort Largest to Smallest with Row Groups

    To collapse the rows in a group, just click the minus button [-] at the bottom of that group's bar or click the [1] botton on the left top side of the sheet.
    To do the same by the code insert this...
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4