Email
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