Sending email using values of a combo box(with multiple values)

[Fionfion]

Hi all, I have a form which allows users to input the data and send email using the data, everything works well except for when I add a combo box with multiple values and trying to add the values in the email, it won't work - Please help



My code looks this below (I found it on the internet)

Private Sub sendemail_Click()

On Error GoTo ErrorHandler


Dim varName As Variant
Dim varCC As Variant
Dim varSubject As Variant
Dim varBody As Variant


varName = "me@gmail.com"
varCC = "meme@gmail.com, mememe@gmail.org"
'separate each email by a ','


varSubject = "My email subject"
'Email subject


varBody = "My email body"       'Im trying to add a combo box with multiple values here




'Body of the email
DoCmd.SendObject , , , varName, varCC, , varSubject, varBody, True, False
'Send email command. The True after "varBody" allows user to edit email before sending.
'The False at the end will not send it as a Template File


ErrorHandler:
    Select Case Err.Number
    Case 2501
    MsgBox ("Email not sent.")
    End Select


End Sub

[RuralGuy]

Perhaps this link will help: http://www.granite.ab.ca/access/email.htm

It's my favorite email link.

[knarfreppep]

List Box not Combo Box


For Each varListItem In ListBox.ItemsSelected
varBody = varBody & vbCRLF & varListItem
Next

[Fionfion]

Thank you so much for your code!!!

The code you provided only returns the row number (Or I did something wrong), but based on your code I found a way to return the values of the row - below is my code:

For Each varListItem In ListBox.ItemsSelected

varBody = ListBox.Column(varListItem) 
Next varListItem 

Thank you again for your help!!

[Fionfion]

Perhaps this link will help: http://www.granite.ab.ca/access/email.htm

It's my favorite email link.

Thanks for your help too, just that it seems very complicated (I'm new to Access & don't know much about programming) Thank you!!

[RuralGuy]

Your most welcome. Just bookmark the site for the future.