View Single Post
  #2 (permalink)  
Old December 1st, 2005, 02:25 PM
mmcdonal mmcdonal is offline
Friend of Wrox
Points: 9,611, Level: 42
Points: 9,611, Level: 42 Points: 9,611, Level: 42 Points: 9,611, Level: 42
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Mar 2004
Location: Washington, DC, USA.
Posts: 3,069
Thanks: 0
Thanked 10 Times in 10 Posts
Default

Here is code that I use when an employee leaves our organization. I email a list of user assets to the help desk to retrieve. We have GroupWise. I haven't been able to answer the question either, other than the "Security by Obscurity" mentality.

'========== Code Starts ==========
Private Sub btnEmail_Click()
    Dim stSubject As String '
    Dim stName As String '
    Dim stSender As String '
    Dim stMessage As String '
    Dim stHelpDesk As String '
    Dim stFinished As String '
    Dim rs As ADODB.Recordset '
    Dim stSQL As String '
    Dim stAsset As String '
    Dim stSN As String '
    Dim stList As String '
    Dim objMessage
    Dim stLeaveDate As String
    Dim stRequestor As String


    stLeaveDate = InputBox("Please enter the date this employee" & vbCrLf & "is scheduled to leave the agency")
    stRequestor = InputBox("Please enter the name of the person requesting clearance:")

    stSQL = "Select * from Query1 Where UserID = " & Me.UserID '
    stSubject = "Exiting Employee" '
    stSender = "account@YourDomain.Com" '
    stName = Me.FirstName & " " & Me.LastName & " (" & Me.LOGIN_NAME & ")" '
    stMessage = "Please retrieve the following items from " '
    stHelpDesk = "Helpdesk@YourDomain.com" '
    stFinished = "The HelpDesk has been notified." '

    Set rs = New ADODB.Recordset '
    rs.Open stSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '

    Do Until rs.EOF
        stAsset = rs!AssetCategory '
        stSN = rs!SerialNumber '
        stList = stList & vbCrLf & stAsset & " (SN:" & stSN & ")" '
        rs.MoveNext
    Loop

    Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
    Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

    Const cdoAnonymous = 0 'Do not authenticate
    Const cdoBasic = 1 'basic (clear-text) authentication
    Const cdoNTLM = 2 'NTLM

    Set objMessage = CreateObject("CDO.Message")
    objMessage.Subject = stSubject & ": " & stName
    objMessage.Sender = stSender
    objMessage.To = stHelpDesk
    objMessage.TextBody = stMessage & stName & " leaving " & stLeaveDate & ":" & _
                            vbCrLf & "Requesting Clearance: " & stRequestor & vbCrLf & stList

    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    'Name or IP of Remote SMTP Server
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.yourdomain.com"

    'Type of authentication, NONE, Basic (Base64 encoded), NTLM
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

    'Your UserID on the SMTP server
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "****"

    'Your password on the SMTP server
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "****"

    'Server port (typically 25)
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    'Use SSL for the connection (False or True)
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

    'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

    objMessage.Configuration.Fields.Update

    '==End remote SMTP server configuration section==

    objMessage.Send

    MsgBox stFinished

End Sub
'========== Code Ends ==========

I am sure there is an attachment line, probably just "objMessage.Attachment = " and then the path to the file and the filename.

HTH


mmcdonal