debug.print & email

[crujazz]

Goedemorgen allen,

Ik loop tegen een klein probleempje aan.

Ik heb een functie gemaakt waarbij ik gegevens uit een combobox middels multiselect zichtbaar kan maken. Dat werkt prima. Middels debug.print (en controlevenster) worden de gegevens zichtbaar gemaakt echter ik zou de gegevens middels een email versturen.
Daar loop ik vast, wie zou mij kunnen adviseren?

Hierbij mijn code voor gegevens verzamelen:

Function EmailGo()
Dim intI As Integer, varItem As Variant, ctlList As Control, frm As Form
Dim i As String

Set frm = Forms![Mail order bevestigen]
Set ctlList = Forms![Mail order bevestigen]!Bestellijst

For Each varItem In ctlList.ItemsSelected
For intI = 0 To ctlList.ColumnCount - 1
Debug.Print frm!Bestellijst.Column(intI, varItem)
Next intI
'Debug.Print
Next varItem


Set frm = Nothing
End Function

Hierbij de code om een email te maken:

Private Sub email_AfterUpdate()

Dim stWhere As String, varToMesser As Variant, stText As String, stSubject As String, varCCMesser As Variant
Dim strMem As String, stText1 As String, strComments As String, varToPraxair As Variant, varCCPraxair As Variant
Dim stText2 As String, strResult As String


Select Case email
Case 1
'varToMesser = "Gerjac.messer@messerbenelux.com"
'varCCMesser = "Stiena.Verminck@messerbenelux.com;arie.*****boom@avantium.com;sigurd.girigorie@avantium.com"
'varToPraxair = "orders_nl@praxair.com"
'varCCPraxair = "arie.*****boom@avantium.com;sigurd.girigorie@avantium.com"

varToMesser = "sigurd.girigorie@avantium.com"
varToPraxair = "sigurd.girigorie@avantium.com"
varCCPraxair = "sigurd.girigorie@avantium.com"
varCCMesser = "sigurd.girigorie@avantium.com"

stSubject = "Bestelling Avantium"

stText = "Beste " & Me.txtAanhef & "," & Chr$(13) & Chr$(13)

stText1 = "Graag wil ik het volgende ontvangen:" & Chr$(13) & Chr$(13) & Chr$(13)

stText2 = "Met vriendelijke groeten, with kind regards " & Chr$(13) & Chr$(13) & Chr$(13) & Chr$(13) & Chr$(13) & Chr$(13)

strMem = "Avantium " & Chr$(13) & " Zekeringstraat 29 - 1014 BV Amsterdam - The Netherlands" & Chr$(13) & "tel. +31 20 5868080 (office) - fax. +31 20 5868085" & Chr$(13) & Chr$(13) & "www.avantium.com"

strComments = "Artikel" & " " & "Inhoud" & " " & "Druk (bar)" & " " & "Aantal" & Chr$(13)

'strComments = strComments & "" & Me.Artikel & " " & Me.txtInhoud & "L" & " " & Me.intDruk & " " & Me.Aantal & Chr$(13) & Chr$(13) & Chr$(13) & Chr$(13) & Chr$(13) & Chr$(13) & vbCrLf


EmailGo
Case 2
End Select
If Me.txtLev = "Praxair" Then DoCmd.SendObject , , acFormatTXT, varToPraxair, varCCPraxair, , stSubject, stText & stText1 & strComments & Chr$(13) & stText2 & Chr$(13) & strMem, True
If Me.txtLev = "Messer" Then DoCmd.SendObject , , acFormatTXT, varToMesser, varCCMesser, , stSubject, stText & stText1 & strComments & Chr$(13) & stText2 & Chr$(13) & strMem, True
End Sub