Outlook Banter

Outlook Banter (http://www.outlookbanter.com/)
-   Outlook - Using Forms (http://www.outlookbanter.com/outlook-using-forms/)
-   -   Custom Email Form (http://www.outlookbanter.com/outlook-using-forms/9233-custom-email-form.html)

BlockNinja March 23rd 06 03:35 AM

Custom Email Form
 
I am trying to design a form that looks something would look something like
this:

Subject:
"*** Delinquency Comparison *** - as of " &
format(dateadd("d",-1,now),"Short Date")

To:
"blah, blahblah; lastname, firstname" (a predefined list of names)

Body:
"All:" & vbcrlf & _
"The report is now available at: " & vbcrlf & _
"\\networkcomp\drive\public\reporting\" &
format(dateadd("d",-1,now),"yyyymmdd") & "_DelinquencyComparison.xls" &
vbcrlf & vbcrlf & _
"Thank you"

Any ideas on how I might do something like this as a "one-touch" operation
in Outlook so that I can click a single button and send an email like this
out every day? Sorry for my code if it's wrong, I'm more acquainted with
Access VBA than Outlook.

Sue Mosher [MVP-Outlook] March 31st 06 05:01 PM

Custom Email Form
 
If you want to do it as a custom form, put the code to set message properties in the Item_Open event handler of your custom form:

Function Item_Open()
newDate = dateadd("d",-1,now)
Item.Subject = "*** Delinquency Comparison *** - as of " & _
FormatDateTime(newDate,vbShortDate)
Item.To = "blah, blahblah; lastname, firstname"
newDate =
Item.Body = "All:" & vbcrlf & _
"The report is now available at: " & vbcrlf & _
"\\networkcomp\drive\public\reporting\" & _
yyyymmdd(newDate) & "_DelinquencyComparison.xls" & _
vbcrlf & vbcrlf & "Thank you"
End Function

Function yyyymmdd(anyDate)
If IsDate(anyDate) Then
yyyymmdd = Year(anyDate) & _
IIf(Month(anyDate) 10, "0", "") & _
Month(anyDate) & _
IIf(Day(anyDate) 10, "0", "") & _
Day(anyDate)
End If
End Function

Note the use of a custom function to work around the fact that Format() is not available in VBScript.

You'll need to publish the form in order for the code to run.

You could also use VBA code to generate the message with Application.CreateItem and then set its properties.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"BlockNinja" wrote in message ...
I am trying to design a form that looks something would look something like
this:

Subject:
"*** Delinquency Comparison *** - as of " &
format(dateadd("d",-1,now),"Short Date")

To:
"blah, blahblah; lastname, firstname" (a predefined list of names)

Body:
"All:" & vbcrlf & _
"The report is now available at: " & vbcrlf & _
"\\networkcomp\drive\public\reporting\" &
format(dateadd("d",-1,now),"yyyymmdd") & "_DelinquencyComparison.xls" &
vbcrlf & vbcrlf & _
"Thank you"

Any ideas on how I might do something like this as a "one-touch" operation
in Outlook so that I can click a single button and send an email like this
out every day? Sorry for my code if it's wrong, I'm more acquainted with
Access VBA than Outlook.



All times are GMT +1. The time now is 08:02 AM.

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2006 OutlookBanter.com