Tip Bank

Sending emails via code used to be cool, but now it is a necessity. Below is code to send email via CDO. If the CDO call fails, it will send

For reporting, many times you need to figure out what date last week began and ended. Use the code below to figure that out: Dim vntBegin As variantDim vntEnd As

Ever wonder how to send email that looks like a web page? Here is how you do it. Note: You must have CDO for NT referenced for this to work.

‘***********************************************************’* Module Name: MSExcel’* Author: Steve Miller’* Date: 11/22/98’* Description: Encapsulates and eases the chore of writing to an Excel ‘ spreadsheet.’*’* IMPORTANT: requires that you have a reference to

‘ Validate a credit card numbers’ Returns True if valid, False if invalid” Example:’ If IsValidCreditCardNumber(Value:=”1234-123456-12345″, IsRequired:=True)Function IsValidCreditCardNumber(Value As Variant, Optional ByVal IsRequired As _ Boolean = True) As Boolean

‘ Validate attributes of Phone data’ Returns True if valid, False if invalid” Also returns the phone in formatted fashion (USA format).’ Will convert alphabetics to numeric”Example:’ If IsValidPhoneField(Value:=”3034414444″, ReformattedPhone:=strNewPhone,’

‘ Validates attributes of the SSN’ Returns True if valid, False if invalid”Example:’ If IsValidSSN(Value:=”333-44-3333″, IsRequired:=True) then …Function IsValidSSN(ByRef Value As String, Optional ByVal IsRequired As Boolean _ = True)

When creating an installation package that determines what files must be installed, use the Visual Studio 6.0 Dependency Walker Utility. This utility comes with Visual Studio and can be found

When you deal with unknown return values or variant variables whose types might be unknown, you may not know whether the value of the variable is an EMPTY string or