Sending Outlook email w/ alt sig block

Discussion in 'Access VBA Modules' started by Doug Sanders, Nov 20, 2012.

  1. Doug Sanders

    Doug Sanders Guest


    I have inherited a tesk.
    Any of three different workers can enter data for a job into Access and it
    vreates an email response to go back to the prospect customer.

    It works. The problem is that the email then bears the 'From' field as any
    of these different workers.

    They would like there to be a generic signature block that could be appended
    instead of their usual one.

    Here is some of the code below:

    Dim CC_email As String
    Dim BCC_email As String
    Dim Subject_email As String
    Dim Body_email As String

    Dim lngClientContactID As Long
    Dim strClientEmailAddress As String
    Dim strAcknowledgementPdfPath As String

    On Error GoTo Err_SendAckMessage

    If Not IsNull(Forms!frmCase.Form.cboContactID_Client.Column(0)) Then
    lngClientContactID =
    strClientEmailAddress = Nz(DLookup("emailAddress", "tblContact",
    "contactID = " & lngClientContactID), "")
    MsgBox "No client contact has been chosen."
    End If

    strAcknowledgementPdfPath = DLookup("caseFolderLocation",

    If Right(strAcknowledgementPdfPath, 1) <> "\" Then
    strAcknowledgementPdfPath = strAcknowledgementPdfPath & "\" &
    strQuoteNbr & "\" & strQuoteNbr & "_Acknowledgement.pdf"
    strAcknowledgementPdfPath = strAcknowledgementPdfPath & strQuoteNbr
    & "\" & strQuoteNbr & "_Acknowledgement.pdf"
    End If

    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("tsysReference")
    ' Populate Recordset object.


    On Error Resume Next

    With rst
    CC_email = !AckccEmailAddress
    BCC_email = !AckbccEmailAddress
    Subject_email = !AckEmailSubject
    Body_email = !AckEmailBody
    End With

    On Error GoTo 0
    Set dbs = Nothing

    On Error GoTo 0
    ' Create the Outlook session.
    Set objOutlook = CreateObject("Outlook.Application")

    ' Create the message.
    Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

    With objOutlookMsg
    If strClientEmailAddress <> "" Then
    Set objOutlookRecip = .Recipients.Add(strClientEmailAddress)
    objOutlookRecip.Type = olTo
    End If

    ' Add the CC recipient(s) to the message.
    If CC_email = "" Then GoTo DoBcc
    Set objOutlookRecip = .Recipients.Add(CC_email)
    objOutlookRecip.Type = olCC

    If BCC_email = "" Then GoTo DoSubject

    ' Add the BCC recipient(s) to the message.
    Set objOutlookRecip = .Recipients.Add(BCC_email)
    objOutlookRecip.Type = olBCC

    ' Set the Subject, Body, and Importance of the message.
    .Subject = Subject_email
    .Body = Body_email
    .Importance = olImportanceHigh 'High importance

    ' Add attachments to the message.
    'Attachments based on EntryType Public variable
    js = EntryType

    If Not IsMissing(AttachmentPath1) Then
    Set objOutlookAttach = .Attachments.Add(AttachmentPath1)
    Set objOutlookAttach =
    End If

    If Not IsMissing(AttachmentPath2) Then
    Set objOutlookAttach = .Attachments.Add(AttachmentPath2)
    End If

    If Not IsMissing(AttachmentPath3) Then
    Set objOutlookAttach = .Attachments.Add(AttachmentPath3)
    End If


    How can I call for a different email account in Outlook to send this email
    rather than the workers default accout.

    I know Outlook allows multiple accounts and you can manually select which
    one to use as a 'Send From'; I just want to automate this.

    Thanks, and if I'm in the wrong group, please point me in the right

    Doug Sanders, Nov 20, 2012
    1. Advertisements

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.