Change 12/23/2002 to 12-23-2002

[thegameoflife]

for some reason vba does not like 12/23/2002 when attaching an attachment in outlook. So how can I change the date to mm-dd-yyyy?

Function mail_report()
Dim oMailApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim Reportname As String

Reportname = "C:\Data\Reports\HighDollar\HighDollar for " & Date & ".xls"

    Set oMailApp = CreateObject("Outlook.Application")
    Set oMail = oMailApp.CreateItem(olMailItem)
    With oMail
        .TO = "HighDollar"
        .Subject = "Report Test"
        .Body = "HighDollar Report              "
        .Importance = olImportanceLow
        .Sensitivity = olPrivate
        .Attachments.Add Reportname
        .Display
        '.Send
    End With

End Function

 

[KenReay]

Hi

1 Your problem is you cannot have slashes in a filename, think about it, \ denotes folder

2 Use Reportname = "C:\Data\Reports\HighDollar\HighDollar for " & Foant(Date,"mm-dd-yy&quot & ".xls"

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[thegameoflife]

Thanks Ken that worked....