Forum Discussion
What am i doing wrong?
Tring to send an access email using VBA. below is the code i am using.
Dim strToWhom As String
Dim strCcWhom As String
Dim strMsgBody As String
Dim strSubject As String
strSubject = Me.Date & " " & Me.Venue
strToWhom = ""
strCcWhom = "email address removed for privacy reasons"
strMsgBody = Me.Date & " " & Me.Venue & vbCrLf & vbCrLf & _
"Blackjack" & vbCrLf & _
Me.Blackjack1 & " " & Me.Blackjack2 & " " & Me.Blackjack3 & " " & Me.Blackjack4 & " " & Me.Blackjack5 & vbCrLf & _
Me.Blackjack6 & " " & Me.Blackjack7 & " " & Me.Blackjack8 & " " & Me.Blackjack9 & " " & Me.Blackjack10 & vbCrLf & _
Me.Blackjack11 & " " & Me.Blackjack12 & " " & Me.Blackjack13 & " " & Me.Blackjack14 & " " & me.Blackjack15 & vbCrLf & _
Me.Blackjack16 & " " & Me.Blackjack17 & " " & Me.Blackjack18 & " " & Me.Blackjack19 & " " & me.Blackjack20 & vbCrLf & _
Me.Blackjack21 & " " & Me.Blackjack22 & " " & Me.Blackjack23 & " " & Me.Blackjack24 & " " & me.Blackjack25 & vbCrLf & _
Me.Blackjack26 & " " & Me.Blackjack27 & " " & Me.Blackjack28 & " " & Me.Blackjack29 & " " & me.Blackjack30 & vbCrLf & vbCrLf & _
"Craps" & vbCrLf & _
Me.Craps1 & " " & Me.Craps2 & " " & Me.Craps3 & " " & Me.Craps4 & " " & Me.Craps5 & vbCrLf & _
Me.Craps6 & " " & Me.Craps7 & " " & Me.Craps8 & " " & Me.Craps9 & " " & Me.Craps10 & vbCrLf & _
Me.Craps11 & " " & Me.Craps12 & vbCrLf & _
"Roulette" & vbCrLf & _
Me.Roulette1 & " " & Me.Roulette2 & " " & Me.Roulette3 & " " & Me.Roulette4 & " " & Me.Roulette5 & vbCrLf & _
"Poker" & vbCrLf & _
Me.Poker1 & " " & Me.Poker2 & " " & Me.Poker3 & " " & Me.Poker4 & " " & Me.Poker5 & vbCrLf & _
"3 Card Poker" & vbCrLf & _
Me.3 Card Poker1 & " " & Me.3 Card Poker2 " " & Me.3 Card Poker3 & vbCrLf & _
"Let it Ride" & vbCrLf & _
Me.Let it Ride1 & " " & Me.Let it Ride2 & " " & Let it Ride3 & vbCrLf & _
"Pai Gow" & vbCrLf & _
Me.PaiGow1 & vbCrLf & _
"Money Wheel" & vbCrLf & _
Me.Money Wheel1
DoCmd.SendObject , , , strToWhom, strCcWhom, , strSubject, strMsgBody, True
End Sub
Any help would be great Thanks
11 Replies
- What is your problem? Do you get an error message? Is the code not working as expected? Or........
Hi,
The code in the picture looks different from the one you posted. Generally:
You have several field/control names that contain spaces. You have to surround all these names with square brackets, e.g.
& Me.[3 Card Poker2] & " " & Me.[3 Card Poker3]
The & in red is also missing in your posted code.
When you post long code here, try to use the code formatting icon on the far right of the editor menu bar.
Servus
Karl
****************
Access Forever
Access News
Access DevCon
Access-Entwickler-Konferenz AEK
I see several fieldnames with spaces. Put those between square brackets.
For example: Me.[Let it Ride2]
