VBA sending email

[onlylonely]

Hi Guy,

Appreciate if your could give me some clue on how to write a email coding.
Below is my coding.

Function Issued_Email()

Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject("Outlook.application")
Dim mailbody As String


Set oMail = oApp.CreateItem(olMailItem)
oMail.Subject = "[e-CAR - Autogenerated] - "" & Forms!F1NCForm!txtscar & "" has been issued to you."


oMail.Body = "Hi " & Forms!F1NCForm!cmbeid & "," & Chr(10) & Chr(10)
oMail.Body = " <a href="" C:\Tony\Project\MS Access\Waters\Database4.accdb ""> Click me</a> "


oMail.To = "a@abc.com"
'oMail.CC =
oMail.Send


'.Display
Set oMail = Nothing
Set oApp = Nothing

End function

The issue i'm facing is oMail.Subject = "[e-CAR - Autogenerated] - " & Forms!F1NCForm!txtscar & " has been issued to you."


The subject doesn't come out with what i'm expected.
Subject expected : [e-CAR - Autogenerated] - SG002 has been issued to you.
Subject outcome : [e-CAR - Autogenerated] - has been issued to you. <<< MISSING SG002

oMail.Body = "Hi " & Forms!F1NCForm!cmbeid & "," & Chr(10) & Chr(10)
body expected : Hi Kris,
body outcome : Hi <<<< MISSING KRIS

oMail.Body = " <a href="" C:\Tony\Project\MS Access\Waters\Database4.accdb ""> Click me</a> "
body expected : Click me.
Body outcome : empty

Anyone have some clue for me to solve this issue?

[davegri]

Both the missing fields are supposed to be on form FINCForm. The form has to be open with the 2 fields containing the wanted data present.

[ranman256]

if you use html in the body, use:

.HTMLBody = "<a href…..

[onlylonely]

Both the missing fields are supposed to be on form FINCForm. The form has to be open with the 2 fields containing the wanted data present.

I have all those information at the form. But still not showing another in the email.

[davegri]

Function Issued_Email()


Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject("Outlook.application")
Dim mailbody As String


Msgbox "txtscar is " & Forms!F1NCForm!txtscar _
& " And cmbeid is " & Forms!F1NCForm!cmbeid


Set oMail = oApp.CreateItem(olMailItem)
oMail.Subject = "[e-CAR - Autogenerated] - "" & Forms!F1NCForm!txtscar & "" has been issued to you."




oMail.Body = "Hi " & Forms!F1NCForm!cmbeid & "," & Chr(10) & Chr(10)
oMail.Body = " <a href="" C:\Tony\Project\MS Access\Waters\Database4.accdb ""> Click me</a> "




oMail.To = "a@abc.com"
'oMail.CC =
oMail.Send




'.Display
Set oMail = Nothing
Set oApp = Nothing


End function

You could add the red code, but it would probably show blanks.
Are you sure you have the form name correct F-one-NCForm ?

[onlylonely]

Function Issued_Email()


Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject("Outlook.application")
Dim mailbody As String


Msgbox "txtscar is " & Forms!F1NCForm!txtscar _
& " And cmbeid is " & Forms!F1NCForm!cmbeid


Set oMail = oApp.CreateItem(olMailItem)
oMail.Subject = "[e-CAR - Autogenerated] - "" & Forms!F1NCForm!txtscar & "" has been issued to you."




oMail.Body = "Hi " & Forms!F1NCForm!cmbeid & "," & Chr(10) & Chr(10)
oMail.Body = " <a href="" C:\Tony\Project\MS Access\Waters\Database4.accdb ""> Click me</a> "




oMail.To = "a@abc.com"
'oMail.CC =
oMail.Send




'.Display
Set oMail = Nothing
Set oApp = Nothing


End function

You could add the red code, but it would probably show blanks.
Are you sure you have the form name correct F-one-NCForm ?

Hi Dave,

Thanks for your input, I've solved the issue. I'm putting wrong place for the "CALL EMAIL"