ok, this is what i have. The actual program with the problem isn't mine but it has more or less the same code, it's just different in that it creates a new mailitem every time instead of when needed, has different data going into the e-mail, and uses message.send instead of message.display
general declarations:
Public OUTAPP As New outlook.Application
Public MESSAGE As outlook.MailItem
form code:
Private Sub createmail()
On Error GoTo continue
MESSAGE.To = tovar
MESSAGE.CC = ccvar
MESSAGE.BCC = bccvar
MESSAGE.Display
Exit Sub
continue:
createnewmail
End Sub
Private Sub createnewmail()
Err.Clear
Set MESSAGE = OUTAPP.CreateItem(olMailItem)
MESSAGE.To = ""
MESSAGE.CC = ""
MESSAGE.BCC = ""
MESSAGE.Subject = ""
createmail
End Sub