I am challenged like many in regards to adding a signature to an Outlook Email.
Let me explain where I am.
I have a form which allows someone to send an email: (4_qryEmailExpanded)
Here is the code in that form:
Code:
Private Sub SecondEmail_Click()
'open Outlook, attach zip folder or file, send e-mail
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
.To = ""
''.cc = ""
''.bcc = ""
.Subject = Me.EmailSubjectField
.HTMLBody = Me.EmailMessageField
'.Attachments.Add ("path\filename")
''.DeleteAfterSubmit = True 'This would let Outlook send the note without storing it in your sent bin
.Display
'.Send
End With
End Sub
As you can see, the HTMLBody comes from the field EmailMessageField (MEMO FIELD)
I have a table which contains user information: (tbl.Security)
This has an HTML field (EmailSignature) which has the users email signature (imagine that!) (MEMO FIELD)
I also use (basUserInfo) which has this information:
Code:
Public Type UserInfo
' ViewID - Type of access (Text - Associted with AccessID #)
ViewID As Integer
' AccessID - Type of access (Access # Associated with ViewID)
AccessID As Integer
' Active - Is the user active
Active As Boolean
' Password - The users password
Password As String
' UserID - The User Name (Joe - Associated with SecurityID)
UserID As String
' SecurityID - The User ID (4 - Associated with UserID)
SecurityID As String
End Type
Public User As UserInfo
My idea is to... COMBINE Me.EmailMessageField & tbl [tbl.Security].EmailSignature based on 'Active' (from 'basUserInfo') to create an email which has a signature!!!!
THOUGHTS?????
I found this:
Code:
SELECT Table1.*, Table2.*
FROM Table1, Table2
WHERE (Table1.MemoField=table2.MemoField);
I don't know if something like that would work!?!?!?!?!