Ik heb een app die een e-mail verstuurd
Deze werkt perfect onder w2k + Outlook2k
maar niet onder WNT4 + Outlook 97
onderstaande doet het wel
maar dan doet mijn opmaak het niet
weet iemand hoe ik het anders moet doen?
RTF oid??
fout melding 438: not supported object or method
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Private Sub Command1_Click()
On Error GoTo ErrHandler
Dim App As Object
Dim Itm As Object
Dim att
Set App = CreateObject("Outlook.Application")
Set Itm = App.createitem(0)
With Itm
.To = "ronald.vanHerwijnen@versatel.nl"
.subject = "Test"
.HTMLbody = "<b>Dit is een test mail</b>"
.Send
End With
Exit Sub
ErrHandler:
MsgBox Err.Number & ": " & Err.Description
End Sub |
Deze werkt perfect onder w2k + Outlook2k
maar niet onder WNT4 + Outlook 97
onderstaande doet het wel
code:
1
| .body = "<b>Dit is een test mail</b>" |
maar dan doet mijn opmaak het niet
weet iemand hoe ik het anders moet doen?
RTF oid??
fout melding 438: not supported object or method