Outlook VBA

[Richard Schollar]

Hi

Does anyone know of any good sites out there which could show me how to go about creating & sending an email to a given recipient each day? I need to attach a csv file to the mail (first checking that the file date on said file is today's date). I have never used Outlook VBA before,and frankly wouldn't know where to start!

Thanks

 

[SydneyGeek]

Hi Richard, try www.helenfeddema.com

She does a lot of inter-application stuff, quite a lot of it with Access and / or Outlook. The 2 main resource pages are Access Archon (almost entirely Access, some inter-app stuff), and Code Samples (pretty varied).

Also, I don't know about VBA but she may have some: www.slipstick.com is run by an Outlook / Exchange MVP.

And a Google search brought up... http://www.outlookcode.com/d/vb.htm

Denis

 

[Richard Schollar]

Hi Denis

Decided to give it a go myself and came up with the following (may not be wholly robust/competently coded, but does what I want):

Sub CreateAndSend()
Dim fso, oFDT, myOlApp,myitem,myAttachments
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFDT = fso.GetFile("C:\MyFile.csv")
If Format(oFDT.DateLastModified, "ddmmyyyy") <> Format(Date, "ddmmyyyy") Then
    MsgBox "MyFile.csv does not carry today's Date Stamp": Exit Sub
End If

Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myitem.Attachments
myAttachments.Add "C:\MyFile.csv", _
    olByValue, 1
myitem.To = "Whomever@Wherever.com"
myitem.Subject = "My Subject Line"
myitem.Display
myitem.Send
End Sub

Thanks for the reply though - my respect for Helen Feddema is growing all the time!