FRM1.form
on load
Done1.form
command1.click
nu wil ik in de subject van de email hebben staan hetgene wat geselecteerd is in de combo...
met andere woorden wat vul ik in op de "???"
on load
code:
1
2
3
4
5
6
| 'case 0'
Combo1.AddItem "blaat 1"
'case 1'
Combo1.AddItem "blaat 2"
'case 2'
Combo1.AddItem "blaat 3" |
Done1.form
command1.click
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| On Error GoTo ErrHandler
Dim App As Object
Dim Itm As Object
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = "Reports Positive" & FRM1.Combo1.????
.To = "BILLREP_DPR"
.Body = "Go to http:\\blaat.intranet.blaat.com" & vbNewLine & " " & vbNewLine & "Best regards" & vbNewLine & "Ronald"
.Send
End With
Unload Me
Exit Sub
ErrHandler:
MsgBox Err.Description
Unload Me
End Sub |
nu wil ik in de subject van de email hebben staan hetgene wat geselecteerd is in de combo...
met andere woorden wat vul ik in op de "???"