As I mentioned in another thread, I'm working on a form which will be sent by email from Excel. I'm very
happy with the layout of the form at the moment, and when it sends it looks great on the recipients end.
reference, I'm using some option buttons (from the Excel Forms toolbar), some group boxes (just to make it look nice) and
mainly bordered cells that the user fills in. (Sheet will be protected when I'm done). From what I can see, all the option
buttons and group boxes are converted to pictures before sending. Doesn't bother me. It's just a display.
mention that the form looks great in email. It does when the user first opens the email. BUT, if they try to forward the
email, Outlook creates duplicate items of the option buttons and group boxes. So what I'm left with is option buttons,
sitting on top of pictures of option buttons.
I've attached the code I'm using to send the form, in case it
assists with working out what is going on.
Dim Sendrng As Range
Claimnum = Cells(8, 4).Value
On Error GoTo StopMacro
.ScreenUpdating = False
.EnableEvents = False
'Note: if the selection is one cell it will send the whole worksheet
Set Sendrng = Selection
'Create the mail and send it
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body.
.Introduction = "This is an assessment request for " & Claimnum
' In the "With .Item" part you can add more options
' See the tips on this Outlook example page.
.To = Cells(6, 2).Value
.Subject = "Assessment request for " & Claimnum
While .Attachments.Count > 0 'Remove previous attachments
.Attachments.Add "h:Landlords AR Template.doc"
.Attachments.Add "h:Landlords Invoice Template.xls"
''Attempt to send without user intervention.
''Doesn't really work...
'Application.Wait (Now + TimeValue("0:00:02"))
''Enable below for error numbers
'MsgBox Err.Number & Err.Description
.ScreenUpdating = True
.EnableEvents = True
ActiveWorkbook.EnvelopeVisible = False
Thanks for your time, it's greatly appreciated.
Edit: P.S. I'm happy to try sending the email form to you if it helps show what's happening. As an FYI, tests
have so far been in Outlook 2003. I'm going to send it to myself at home later to see how it displays.