Results 1 to 2 of 2
  1. #1
    New Lounger
    Join Date
    Jul 2004
    Location
    Sacramento, California, USA
    Posts
    12
    Thanks
    0
    Thanked 0 Times in 0 Posts

    email using a Routing Slip (Excel 2000 Sp3)

    The following code works the way I like, except, I would like to use a route slip to send this email to one Recipient to review before sending it to the other. So the first recipient can verify the email address, and forward it to the next. I not trying to send the workbook just the message body, using data from the workbook. Thanks in advance for your help.

    Sub SendEmail()
    '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''
    'Send Email to PP and Contractor
    Dim theApp, theNameSpace, theMailItem, myAttachment, MessageBody, subject
    Set theApp = CreateObject("Outlook.Application")
    Set theNameSpace = theApp.GetNameSpace("MAPI")
    Set theMailItem = theApp.CreateItem(0)
    Set myAttachment = theMailItem.attachments
    MessageBody = "This email is being sent to you because your contract is not compliant with the Insurance" _
    & vbNewLine & "Requirements under the Terms and Conditions of Contract Number " & vContractorNumber _
    & vbNewLine & "The following coverages need to be address A.S.A.P. Please submit a current Insurance" _
    & vbNewLine & "Certificate along with necessary endorsements as below:" _
    & vbNewLine & vbNewLine _
    & ckWCCert & ckCGLCert & ckCGLAICert & ckCGLYWCert & ckCGLOGOCert & ckCGLRRCert & ckCGLTSTCert _
    & ckCGLSECCert & ckCGLEMPCert & ckBALCert & ckEILCert & ckAirLCert & ckE_OCert & ckCRIMCert _
    & ckFIDCert & ckOTHCert & vbNewLine _
    & ckWCDol & ckCGLDol & ckBALDol & ckEILDol & ckAirLDol & ckE_ODol & ckCRIMDol & ckFIDDol _
    & ckOTHDol & vbNewLine _
    & ckWCDat & ckCGLDat & ckBALDat & ckEILDat & ckAirLDat & ckE_ODat & ckCRIMDat & ckFIDDat _
    & ckOTHDat & vbNewLine _
    & ckWCDatL & ckCGLDatL & ckBALDatL & ckEILDatL & ckAirLDatL & ckE_ODatL & ckCRIMDatL & ckFIDDatL _
    & ckOTHDatL & vbNewLine _
    & ckWCDatLC & ckCGLDatLC & ckBALDatLC & ckEILDatLC & ckAirLDatLC & ckE_ODatLC & ckCRIMDatLC _
    & ckFIDDatLC & ckOTHDatLC

    subject = "Insurance Certificate Requirements For Contractor "

    theMailItem.Recipients.Add("mfong@smud.org").Type = 2
    theMailItem.Recipients.Add("mlorenzo@bigvalley.net ").Type = 1
    theMailItem.subject = subject & vContractorName & "Contract Number " & vContractorNumber
    theMailItem.Body = MessageBody
    theMailItem.Send
    theNameSpace.Logoff

    End Sub

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: email using a Routing Slip (Excel 2000 Sp3)

    The routing slip concept is only implemented for sending a workbook. Perhaps you can send a small dummy workbook, using data from another workbook (that is not sent) for the code.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •