Module Problem

[Bob Vance]

Can I add [Public Function DownloadMessage] to EmailSignature , the
downloadmessage is to far down the email page people are not seeing
it..Thanks Bob

Public Function eMailSignature( _
Optional strGreeting As String = "Best Regards", _
Optional InclOwnerName As Boolean = True) As String


Dim strCompany As String, strSender As String

strCompany = Nz(DLookup("[CompanyName]", "tblCompanyInfo"), "")
strSender = IIf(InclOwnerName, Nz(DLookup("[EmailName]", _
"tblCompanyInfo"), ""), "")

eMailSignature = Chr(10) & Chr(10) & Chr(13) & IIf(Len(strGreeting) > 0,
_
strGreeting & "," & Chr(10) & Chr(13), "") & IIf(Len(strSender) > 0, _
strSender & Chr(10) & Chr(13), "") & strCompany & Chr(10) & Chr(13)


End Function
Public Function DownloadMessage( _
Optional strFileType As String = "snp", _
Optional strMessage As String = _
"If you cannot open the attachment " _
& "please download and install the(Free)Viewer " _
& "from the following Microsoft link and If clicking doesn't work Cut and
Paste the line below into your Web browser's address bar") _
As String

Dim strLink As String

Select Case strFileType
Case "rtf" 'MSWord
strLink =
"http://www.microsoft.com/downloads/...7-8732-48d5-8689-ab826e7b8fdf&DisplayLang=en "
Case "snp" 'Snapshot
strLink = "http://support.microsoft.com/kb/175274"
Case "PDF" 'Adobe Acrobat
strLink =
"http://www.freedownloadhq.com/acrobat/index.asp?s=goau&a=acrobat"
Case "XLS" 'Excel
strLink =
"http://www.microsoft.com/downloads/...f4-996c-4569-b547-75edbd03aaf0&displaylang=EN"
Case Else
DownloadMessage = ""
Exit Function
End Select

DownloadMessage = Chr(10) & Chr(10) & Chr(10) & Chr(10) & Chr(13) _
& strMessage & Chr(10) & Chr(10) & Chr(13) & strLink _
& Chr(10) & Chr(13)

End Function

 

[Graham Mandeno]

Hi Bob

I'm not sure I understand your question, but here goes:

You can put the stuff in the body of your e-mail message in whatever order
you like. Why not put the link to download the reader for your attachment
in the main body of the message about the e-mail signature? Also, you seem
to have an awful lot of linefeeds [Chr(10)], which will give you lots of
blank lines. If you want everything closer together, you could get rid of
some of them.

 

[Bob Vance]

Thanks Graham, thats what i will do delete some [chr10] to lift it up the
page, Thanks Again...Bob

Hi Bob

I'm not sure I understand your question, but here goes:

You can put the stuff in the body of your e-mail message in whatever order
you like. Why not put the link to download the reader for your attachment
in the main body of the message about the e-mail signature? Also, you
seem to have an awful lot of linefeeds [Chr(10)], which will give you lots
of blank lines. If you want everything closer together, you could get rid
of some of them.

--
Good Luck

Graham Mandeno [Access MVP]
Auckland, New Zealand

Can I add [Public Function DownloadMessage] to EmailSignature , the
downloadmessage is to far down the email page people are not seeing
it..Thanks Bob

Public Function eMailSignature( _
Optional strGreeting As String = "Best Regards", _
Optional InclOwnerName As Boolean = True) As String


Dim strCompany As String, strSender As String

strCompany = Nz(DLookup("[CompanyName]", "tblCompanyInfo"), "")
strSender = IIf(InclOwnerName, Nz(DLookup("[EmailName]", _
"tblCompanyInfo"), ""), "")

eMailSignature = Chr(10) & Chr(10) & Chr(13) & IIf(Len(strGreeting) >
0, _
strGreeting & "," & Chr(10) & Chr(13), "") & IIf(Len(strSender) > 0, _
strSender & Chr(10) & Chr(13), "") & strCompany & Chr(10) & Chr(13)


End Function
Public Function DownloadMessage( _
Optional strFileType As String = "snp", _
Optional strMessage As String = _
"If you cannot open the attachment " _
& "please download and install the(Free)Viewer " _
& "from the following Microsoft link and If clicking doesn't work Cut and
Paste the line below into your Web browser's address bar") _
As String

Dim strLink As String

Select Case strFileType
Case "rtf" 'MSWord
strLink =
"http://www.microsoft.com/downloads/...7-8732-48d5-8689-ab826e7b8fdf&DisplayLang=en "
Case "snp" 'Snapshot
strLink = "http://support.microsoft.com/kb/175274"
Case "PDF" 'Adobe Acrobat
strLink =
"http://www.freedownloadhq.com/acrobat/index.asp?s=goau&a=acrobat"
Case "XLS" 'Excel
strLink =
"http://www.microsoft.com/downloads/...f4-996c-4569-b547-75edbd03aaf0&displaylang=EN"
Case Else
DownloadMessage = ""
Exit Function
End Select

DownloadMessage = Chr(10) & Chr(10) & Chr(10) & Chr(10) & Chr(13)
_
& strMessage & Chr(10) & Chr(10) & Chr(13) & strLink _
& Chr(10) & Chr(13)

End Function