Generating and sending emails through Access

[crowegreg]

I've recently determined that emails I'm creating in Access 2010, and mailing through Outlook 2010 have this extra information added to the email message.

Date: Thu, 6 Jun 2013 15:39:48 -0600
Message-ID: <001801ce62fe$5e667030$1b335090$@safecarautotranspo rt.com>
MIME-Version: 1.0
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit
X-Mailer: Microsoft Outlook 14.0
Thread-Index: Ac5i/l4qKwb5cN9kTkqZ8bktPFz+qA==
Content-Language: en-us

Here's my code for creating and sending the email. You'll see that I remarked out the HTMLBody and the Attachement. So in essence I'm sending a blank email with only the subject. If I send a blank email from the same email account within Outlook, the recipient receives a blank email. It does not contain the above info. So somehow, this info is being created when the email is created in Outlook.
Dim objAccount As Outlook.Account
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem

'Determine the correct account
For Each objAccount In Outlook.Application.Session.Accounts

If objAccount = "Dispatcher" Then



'Create the Outlook session.
Set objOutlook = GetObject(, "Outlook.Application")
'Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.To = strEmailAddress
.SendUsingAccount = objAccount
.Subject = "Safe Car Auto Transport Quote for your " & Me.VehicleMake & " " & Me.VehicleModel
'.HTMLBody = ContractMessage(strCustomerName)
'.Attachments.Add contractfile
.send
'.Display
End With
End If
Next



I've been working with my web hosting company for the last 2 hours, and we've deduced the problem exists within Access. Any suggestions?

[crowegreg]

I've determined that if I replace .Subject with a static text, it works properly. Example, .Subject = "Safe Car Auto Transport Quote" works perfectly. If I use any variable in the subject line, the code is inserted into the received email. Anyone see this before?

[DepricatedZero]

Maybe I'm misunderstanding. This looks like a standard email header (as in, similar to an http header, not like page header).

Is that text appearing in the actual body of the email? It shouldn't, but it should still be in the file itself, I believe. Mail servers aren't my forte though.

If it's appearing in the body you may have something 'hanging open' so to speak so that it's inserting the header as text rather than a header.

[crowegreg]

Yes, the "header" text appears in the very beginning of the email.

The problem is with .Subject. If I assign .Subject a static line of text, the "header" text does not appear. If I assign .Subject a variable, the "header" text appears.

[DepricatedZero]

Is .Subject = "Safe Car Auto Transport Quote for your " & Me.VehicleMake & " " & Me.VehicleModel

producing the error? Or not? I mean - does having the variable in there cause it, or is it when it's only a variable that it happens?

[crowegreg]

Yes, that statement produces the error.

I have not tried it with only a variable.

I know that statement is correct because when I view the email in my sent folder, the email is correct, and the subject line is the correct statement.

[crowegreg]

I just assigned .Subject = Me.VehicleMake, and the error was produced.

[DepricatedZero]

One thing you might try is using a blank template?

Something like

Set objOutlookMsg = objOutlook.CreateItemFromTemplate(GetPath)

My own mailer module uses this to load prebuilt templates and then patterned string replacement to populate relevant data.

This is a workaround rather than a fix, really - but I honestly couldn't say why populating the subject from a variable would cause it to dump the header into the body. You might debug.print the variable before putting it into the subject and see if it's sending something funky though?

Edit: On that note, try ending capping it with a zero length string ie

.Subject = me.VehicleMake & ""

And if that doesn't work add a space and see if that fixes it.

[crowegreg]

Thanks for the suggestions. I'll try them.

It took me a while to get a handle on this. It was really confusing with the item in the sent folder "appearing" correct.

[DepricatedZero]

Made any progress on this?