email from form **but default signiture required

[GaryPanic]

OK- i have been busy doing other stuff and have come back to do some polishing off .
i have the code below - and it works a treat - but i need it to input a default outlook signiture -per user -is there some way of doing this (I do have a get around but if there is something out there ...)




Dim EmailApp, NameSpace, EmailSend As Object

Set EmailApp = CreateObject("Outlook.Application")
Set NameSpace = EmailApp.GetNamespace("MAPI")
Set EmailSend = EmailApp.CreateItem(0)


EmailSend.To = [Forms]![quotefrm]!
EmailSend.Subject = " Our Reference :-" & " " & [Forms]![quotefrm]![QuoteNo] & " - " & "(" & [Forms]![quotefrm]![Insured] & ")"

EmailSend.body = "For the Attention of :- " & Chr(9) & [Forms]![quotefrm]![POC] --(etc, etc)

 

[Pyro]

Have a look at this link.

 

[GaryPanic]

thanks Pyro--
However I think i am going to use my get around - and for those that might be interested-


i have a table with handler details (Name, Position, sign off and the last field is the disclaimer etc this last filed was the one that was freaking me out- as the text that is in there is greater than 255 charaters - so i made it a memo field throw it on the main (properties hidden) and just linked the properites as outliend below
[Forms]![quotefrm]![memofieldnamexxx]
and it works - I was concerned that I might hit a 255 charater limit - but it seems tob e working -
the beauty of doing this way is that i control the signoffs and disclaimers
might not be right - but it works

your link though has help me on another issue - so it wasn't time wasted
it helped with attachments- which was to be my next issue - and the code (which i had in mind is there) and should help me - So big thanks much appricated
Gary