vba code to check the attachment format in Outlook

[hearthhrob4gals]

hi,

i need an outlook macro which should be triggered while clicking the send button. It should test the attachments and in case if there is any attachment apart from '.pdf' then it should display a dialogue box notifying the user and should cancel the send process...


Thanks

 

[Worf]

Re: vba code to check the attachment format in look

Hello

Run the initialize handler routine first, to enable the event.

' ThisOutlookSession module


Public WithEvents myOlApp As Outlook.Application


Public Sub Initialize_handler()
Set myOlApp = Application
End Sub


Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim att As Attachments, i%, ext$
Set att = Item.Attachments
For i = 1 To att.Count
    ext = Split(att.Item(i).FileName, ".")(1)
    If ext <> "pdf" Then
        MsgBox "Above extension was found, aborting...", 16, UCase(ext)
        Cancel = True
        Exit Sub
    End If
Next
End Sub