Recent content by Douglas Post

I haven't looked at this in a long time but I think you need to have some error trap coding which basically says, if no email in CC field then run a code where the inclusion of CC in the code is eliminated.

I had the same error. I just placed my email in there and it works fine. I then delete the email prior to sending. I think the problem stems from the fact the code is expecting an email to be there.

I have a spreadsheet with a column "URL". What I would like to accomplish thru VB is push a button and a small image of the URL is displayed in the adjacent cell. Think of it in terms of a store that has multiple products, each with a different URL. The cell to the right would contain an...

I utilize two sub forms. One form lists all the data, the other is the data input form. I have set Data Entry, Allow Additions, Allow Deletions, Allow Edits to Yes. I have set Allow Filters to No. I have set Record Locks to No Locks The problem I run into is that it keeps on filling...

When I open in Report View the pointer is activated but it references a path on my computer ending in = [Listings]! [Listing Link] It appears that the report is not calling the field value in the hyperlink field but is only calling the exact text I place in that field. It then appears to...

I have an embedded .jpg that I want to act as a hyperlink when it moves on to a PDF. I have the hyperlink addresses stored in a field called: [Listings]! [Listing Link] The actual Hyperlink address within this field is...

Actually doesn't work. Works ok for addresses like 5822 Cranston but does not work for 10603 S Cascade Street as the output for the latter is 10603 Street.

I got it to work by seperating the address string: Dim StreetNumber As String Dim StreetName As String StreetNumber = Left(Me!Address, InStr(1, Me!Address, " ") - 1) StreetName = Right(Me!Address, InStr(1, Me!Address, " ") + 1) "<br><A HREF=http://www.bing.com/maps/?v=2&where1=" &...

I have a form that contains the following fields: Address City State Zip I convert this to FullAddress with: Dim FullAddress As String FullAddress = Address & " " & City & " " & State & " " & Zip I am outputting to Outlook and want to create a link to Bing Maps with: "<br><A...

Thanks to everyone for the guidance. Here is the final code for future reference that utilized a table. Private Sub Send_Info_Click() Dim OutApp As Object Dim OutMail As Object Dim Strbody As String Dim Strbody2 As String Dim Strbody3 As String Dim Strbody4 As...

I thought about that, I just find it odd having to put quotes around everything when I write the HTML. Do you know what the reason is that you have to do this in VBA?

I posted this in the VBA as the construct of the email was code driven. But I guess the HTML guys would probably have a better fix. The FormatCurrency() worked like a charm. Still unable to properly format the tabbing even with four of the &nbsp. I tried putting these in quotes and leaving...

I have created a bit of code that pulls data from a form and populates an email for use in Outlook. I am down to a few formatting hurdles and am unsure of how to go about it. The First Issue. My current output looks like this SHOWING INFORMATION Agent: Some Agent Office: Some Office Showing...

Just figured it out. I needed to write the code as: "<A HREF=" & ListingLink & ">Link to Listing</A></font>"

I have a field called "Listing Link". In that field there is a full URL path. I want to put this in the body of my email as a link. I have identified the field as: ListingLink = Me! [Listing Link]I try to populate the body of the email with: "<A HREF=ListingLink>Link to Listing</A>"But...