Call up a centralized Signature block

[Thompyt]

How can I call up a signature block instead of having it in every one of my email body



.Body = "For your action." & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "V/R" & vbCrLf & vbCrLf & "Name" & vbCrLf & vbCrLf & "Command& vbCrLf & "Division" & vbCrLf & "Address" & vbCrLf & "Address 2" & vbCrLf & "Phone" & vbCrLf & "Email"

Additionally I would like to know how you would incorporate a set message by form/report output. Here as a standard I have "For your action.", other emails I have something different.

The code for the email is Public off of a command button.

idea = .Body = StrMessage & call sigBlock

Where would the sigblock be at?

Thanks

Wayne

[pbaldy]

Likely in a standard module, either as a function if it's getting the values from somewhere, or a constant if it's a static string.

[Thompyt]

It would be static, I removed the pertinent data to make it generic for the forum. How do I make a standard module? I am used to going off a form/report. Since I already have "Start" form as open all the time, then I just put in on a Call form_Start.Sigload or something to that effect?

[pbaldy]

In the VBA editor, Insert/Module. Then

Public Const strSigBlock As String = "Blah"

Then in your code simply:

idea = .Body = StrMessage & strSigBlock

[Thompyt]

Ok I figured out how to make the Standard module. Select Module...

Now that I have that I get an error in the module itself.
Public SigBlk
Dim SigBlk as String
SigBlk = Chr(13) & Chr(10) & Chr(13) & Chr(10) & "V/R" & Chr(13) & Chr(10) & Name" & Chr(13) & Chr(10) & "Command" & Chr(13) & Chr(10) & "Division" & Chr(13) & Chr(10) & "Address 1" & Chr(13) & "Address 2" & Chr(13) & Chr(10) & "Phone" & Chr(13) & Chr(10) & "Emaill"
End Sub

Errors on the first 13 "Invalid Outside Error"

Or if I use
vbCrLf & vbCrLf & vbCrLf & vbCrLf & "V/R" & vbCrLf & vbCrLf & "Name" & vbCrLf & vbCrLf & "Command& vbCrLf & "Division" & vbCrLf & "Address" & vbCrLf & "Address 2" & vbCrLf & "Phone" & vbCrLf & "Email"

It errors on the first vbCrlf

If I use .Body, then I won't be able to have differing Comments above the Sig Block automatically.

I was wanting to Call Module_SigBlk.SigBlk, then in the actual body code put:

.Body = "whatever I want for the Message" & SigBlk

[ssanfu]

In both examples, you are missing a double quote.
- In the example using "Chr(13) & Chr(10)", there should be a quote in front of NAME.
- In the example using "vbCrLf", there should be a quote and a space after COMMAND.



I think what Paul meant was to create a standard module, then add

Public Const SigBlk As String = vbCrLf & vbCrLf & vbCrLf  & vbCrLf & "V/R" & vbCrLf & vbCrLf & "Name" &  vbCrLf & vbCrLf & "Command" & vbCrLf & "Division" &  vbCrLf & "Address" & vbCrLf & "Address 2" & vbCrLf &  "Phone" & vbCrLf & "Email"

or

Public Const SigBlk As String = Chr(13) & Chr(10) & Chr(13) & Chr(10) & "V/R" & Chr(13) & Chr(10) & "Name" & Chr(13) & Chr(10) & "Command" & Chr(13) & Chr(10) & "Division" & Chr(13) & Chr(10) & "Address 1" & Chr(13) & "Address 2" & Chr(13) & Chr(10) & "Phone" & Chr(13) & Chr(10) & "Emaill"

[Thompyt]

Thanks pbaldy & ssnafu. The example after ssnafus last post was done without knowing ssnafu replied. I used what ssnafu said with the full sig block. It worked like a charm. Maybe someday I will get the hang of it. Still learning. Your help is much appreciated.

Wayne