sum of digits of a number in vba

REM This function
Public Function digitSum(x As Integer)
Dim I As Integer
Dim SumDigit As Integer
SumDigit = 0
For I = 1 To 10
SumDigit = SumDigit + (x Mod 10)
x = Int(x / 10)
MsgBox "Value of " + I + " value of " + SumDigit
If (x < 1) Then Exit Function
Next I
digitSum = SumDigit
End Function

Advertisement

Save Outlook attachments

Public Sub SaveOutlookAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oOutlookAttachment As Outlook.Attachment
Dim sSaveAttachmentsFolder As String
sSaveAttachmentsFolder = “C:\Users\dakm\Desktop\attachments\”

‘ Not to save following files.
arrIgnoreFiles = Array(“graycol.gif”, “image001.gif”)

For Each oOutlookAttachment In MItem.Attachments
If IsInArray(oOutlookAttachment.DisplayName, arrIgnoreFiles) = False Then
oOutlookAttachment.SaveAsFile sSaveAttachmentsFolder & oOutlookAttachment.DisplayName
End If
Next
End Sub

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
IsInArray = UBound(Filter(arr, stringToBeFound)) > -1
End Function