Alternative to .Send

[Dave DeSteno]

I have the following code in the OnClick() event of a command button on a form. Right now, it takes the "; " separated values from a TextBox and puts them in the "To:" field of a .oft Outlook Template. It then sends that template out to the appropriate recipients. (exactly what I wanted it to do...)

Problem: My boss is asking for the email template to come up (with the "To:" field populated) but be available to edit before sending.

I would imagine that there's an alternative to the .Send part of this code that will allow me to edit? Any input is greatly appreciated. (If it's complicated, I'll just tell him No - so don't knock yourself out with this one!)

Private Sub Command87_Click()
 
Dim msgTxt As Variant
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
Dim blnCreated As Boolean
 
 
 
blnCreated = False
 
Set objOutlook = New Outlook.Application
 
Set objMailItem = objOutlook.CreateItemFromTemplate("\\C:\File\File\xxxx\xxxx\xxxx.oft")
 
 
With objMailItem
.To = Me.Text53
.Send
blnCreated = True
End With
 
End Sub
 

[ADezii]

Replace .Send in Code Line #19 with .Display

[NeoPa]

Sometimes we miss the obvious. How about putting the data you want to see/edit in an Access form first then, only after the OK, sending it to Outlook?

That may not suit, and ADezii's probably given a pretty decent alternative anyway, but it's always worth thinking outside the box if you can.

[Dave DeSteno]

Thank you for the replies. ".Display" was exactly what I wanted. I already had everything in place, but I needed outlook to give me the chance to edit the .oft, and I simply couldn't come up with the command.

It worked beautifully - thank you!

Dave