Email Code Correction

Mar 15, 2006

I am sending an email from a form and it almost works the way I want it to. I need to accomplish two more things. Here is an example of what the subject needs to be: 2:00 Report Wednesday March 15th, 2006 I cant get the values into the subject line at all.

I can get the info into the body, but I cant get the date to format as the long date, it only shows as 03/15/2006.

Here is my code, can enyone tell me what I am doing wrong?

Private Sub Command4_Click()
On Error Resume Next
Dim daSubject As String
Dim daBody As String
daSubject = ""
daSubject = daSubject & " " & Time.Value & vbCrLf
daSubject = daSubject & " " & Forms!DispatchDay!Date.Value & vbCrLf
daBody = ""
daBody = daBody & " " & Forms!DispatchDay!Date.Value & vbCrLf
daBody = daBody & " " & Time.Value & vbCrLf
daBody = daBody & " " & Notes.Value & vbCrLf

DoCmd.SendObject acSendNoObject, , , "Email1", "Email 2", , "Report", daBody
End Sub

View Replies


ADVERTISEMENT

Queries :: VBA Code On Subform To Lookup Email Field On Table And Launch Email?

Jun 26, 2015

VBA Code to go in the on double_click event of a name field in a Subform bound to a table. The subform is just a copy of a data table and within the subform view, When the field "employee name" which contains e.g. John is double clicked, I would like access to Lookup and get John's email in the employee table under field "Email" and launch outlook application and insert it into the To field.

I assume hyperlinking the field can also achieve this similar to what excel does but I am fast learning that what is standard functionality in excel is a whole another story in Access..

View 3 Replies View Related

Proper Address Correction

Jan 3, 2008

Is there a way to correct an address field to Proper using a query? I have existing data with various formats. I am not able to correct it, but would like to create a new table using the data but with proper format. I do not write code.

View 3 Replies View Related

Correction To A Question(Query)

Jan 5, 2005

1-Many thanks Colm!!

2-Code:=DCount("[DEPARTMENT]","[Query1]","[DEPARTMENT]='ENGINEERING'")

3-It works BUT: I wish to count the number of times the word " Graduate" along with " engineering" appears.

4-Both words are in separate columns but they are next to each other. The header for Graduate is Division and the header for engineering is department.

5-This is what I wish: Count "GRADUATE" with "ENGINEERING" as 1 occurance and return the value in a text box.

Thanks for any help.

Regards,

Dee

View 1 Replies View Related

How Would I Write This Email Code

Feb 22, 2007

Not being good at codes.

What I attemping to do is edit a email address, upon entering that field.

As of now I right click in the field and then edit the email address.

any ideas

View 2 Replies View Related

Email HTML Body Code

Aug 27, 2015

I can create PDF's, DOCX's retaining the PDF formatting save them back to different network locations and then retrieve and attach to emails that are generated for different areas, however I have been asked to scrap the attachment and insert the content of the attachment directly into the body of the email. I have had a good browse around the net with no real approach. The code below simply gets the recepients email address adds the subject and then is looking for the .HTMLBody which simply comes through in the body as

"O:divAKLResgroupE - ReportsHTML FilesDRAFT TEST .html".

.To = RScoloumdetail(2) ' Gets Email Address
.CC = ""
.BCC = ""

[code]....

View 2 Replies View Related

Attaching Hyperlink File To An Email Through Code

Dec 4, 2006

A have a table with many records and each record has a hyperlink to a document. Based on some criteria i want to attach the hyperlink file to an email. Don't want to have to do this manually. Is there anyway i can write code to go and get the hyperlink file and then attach the physical file into the email? This could result in 1 file being attached, 13 files being attached, 0 files etc.

Any help would be greatly appreciated.

Cheers,

Combsie.

View 5 Replies View Related

Modules & VBA :: Add Multiple Recipients To Email Code?

Sep 18, 2013

How do I add multiple recipients to the '.To' line in the code below?

Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
If Me.txtDepartment = "IT" Then
.To = "my email"
End If
.Subject = "hi"
.HTMLBody = "hi"
.send
End With

View 3 Replies View Related

Queries :: SQL Code Disappears From Query When Sending EMail

Jan 15, 2015

I have a simple SQL query that is e-mailed when there are >0 records. Fairly consistently, the SQL code in the query is wiped out and the query fails. It happens consistently to this query, even though I have many similar queries. I am running Access 2013 in Windows 7

SELECT AR.[Inv#], [History Header].[PO#], AR.[Customer Name],
AR.Date, AR.Mdse, AR.Freight, AR.Amount, AR.[Due Date]
FROM (AR INNER JOIN [History Header] ON AR.[Inv#] = [History Header].[Inv#(number)])
LEFT JOIN [Advanced Engineering Payment Reminder Sic]

[Code] ....

View 12 Replies View Related

Access 2010 - VBA Code - Add Report To Body Of Email?

Feb 25, 2013

Access 2010 - add report to body of an email

i have VBA code to create an email and attach an excel file, what i would like is code to add a report called REPORTMISSINGDATES to the body of the email.

this is the code i have so far, which works and adds everythng i wqant except the main body of the email.

Private Sub Command31_Click()
On Error GoTo Command31_Click_Err
Dim Email As String
Dim name As Variant
Dim EMPloy As Variant
Dim month As Variant
month = MonthName([Forms]![STAFFATTENDANCEMenu]![StaffMonth])
EMPloy = Forms!staffattendancezone!Staff
name = DLookup("[STAFFNAME]", "[QRYSTAFFNAME]", "[ASA] = Forms!staffattendancezone!Staff")
Email = (Forms!STAFFATTENDANCEAdjust!Email)
DoCmd.SendObject acQuery, "STAFFATTENDANCEZONECheckEmployee", "ExcelWorkbook(*.xlsx)", [email], "", "", "" & "Attendance Errors", "THIS IS WHERE I WANT THE REPORT TO GO" _
End Sub

View 1 Replies View Related

Send Email Form Access Code With Attachment

Feb 14, 2012

Send an email form Access code with attachment..

I am able to export data to excel file, I would like to send the excel file created to the customer, is there a sample code I can use to do this in a module.

View 1 Replies View Related

Sending Emails, Code Halts If Invalid Email Address

Nov 7, 2007

I'm using CDOSYS and SMTP in a vb function to send emails via Ms Access 2003.

My code loops through a recordset an sends an email to the email address in the table.

However, all works fine until an invalid email address is encountered, at which point I get an 'Invalid address' error message and the code halts (obviously). BUT, if use 'On Error Resume Next' I get no error message but all consequtive emails are NOT sent.

How can I get the code to ignore the invalid email and carry on sending emails throughout the recordset?

View 7 Replies View Related

Modules & VBA :: Code For Multiple Reports And Files To Email From A Record?

Nov 20, 2013

i have a database which has new customers added daily (currently we post all documentation)

when a new record is filled in the customer receives:

cover letter/invoice(report), book page(report) and a book (pdf, always the same) the reports are created from the record

rather than post all these documents i would like to email them to each customer in 1 email with the reports in pdf format.

Example:

CC (email feild from the record)

Subject (pre filled with "Stop Bullying Now! Books 4 Schools order")

Body (pre filled with "Dear ([Contact]if possible) Please find enclosed your documentation for your recent telephone order bla bla bla and our logo.jpg if possible)

then i would like to attach to the email the cover letter/invoice(report), book page(report) and the book (pdf) from the hard drive (r.eports changed to pdf)

if i can press a button on the form to send it that would be good.

if i could link it to a query to send a batch of them that would excellent.

The Database is Named: b4s.mdb
The table is called: Main Table
The input form is called: Client
The letter/invoice report is called: b4sletinv
The Book page report: b4sbook
The pdf book is located at c:Documents and SettingsAdministrator4sfinal.pdf
The query for the batch is called: coverlet&proforma

View 2 Replies View Related

General :: How To Send A Single Email Message To All The Email Addresses In Query

Jun 2, 2014

I have a query (Access 2007) that contains a field named "email" (which contains email addresses, of course). I want to email everyone in the query and they are all going to receive the same message. My email to them doesn't have to be personalized and I don't need to collect data from the recipients. I don't even need a reply to the email I send.

View 12 Replies View Related

Modules & VBA :: Form Which Has Button To Email Data Out In Standard Email Message

Jan 15, 2014

I have a form which has a button to email the data out in a standard email message.

Private Sub Command60_Click()
Dim MyDb As dao.Database
Dim rsEmail As dao.Recordset
Dim sToName As String
Dim sSubject As String
Dim sMessageBody As String

[code]...

This works well enough, however, FIELDS 11 through to 16 contain the venue address. This is all we ll and good if every field of the venue address is populated. here are times when not all of the fields are populated, for instance, the address might only be 5 lines.I know I can do this using IIf statements on a report, but how can i achieve the same thing for the email.

View 6 Replies View Related

General :: Send A Specific Email From Outlook To All Email Addresses Within A Query

Jan 21, 2014

I have a database that I can use to create a query, grouping companies by city. I then want to send a specific email I have created in outlook to all of the email addresses in the query.I do not need to include names.

View 6 Replies View Related

Modules & VBA :: Generate Multiple Email Messages To Different Email Addresses

Jul 16, 2014

I have made a query with the name "Confirmation" and it is setup like this:

Name trainee Email Training
John John@mail.com Tr one
Mary Mary@mail.com Tr two

I also made a button in a report with the title "Send Mail" now is my goal that if i press that button automatically multiple e-mail message's will be generated with data from people in that query. So if click on that "Send Email" button i want two different mails messages generated that will be send to John@mail.com and Mary@mail.com with in the mail body their data.

View 13 Replies View Related

Modules & VBA :: Specifying Email Address When Sending Email Via SMTP

Jan 19, 2015

I am currently using vb code to send an email in Access on the click of a button. I want the database user to be able to enter the recipient in a text box [ToEmail] which is on form [GroupStockProfiler]. However, I'm unsure how to put this into my code. I currently have the following which doesn't work (unless I put a specific email after 'To'):

Private Sub Command414_Click()
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
Const cdoAnonymous = 0

[code]...

View 1 Replies View Related

Forms :: Add Senders Email Address To Body Of Email

Sep 16, 2013

I want to automate an email to include the senders email addres with some text in the body of the email.

Code:
Private Sub send_mail_Click()
Dim olApp As Object
Dim objMail As Object
On Error Resume Next 'Keep going if there is an error
Set olApp = GetObject(, "Outlook.Application") 'See if Outlook is open

[Code] ....

View 3 Replies View Related

Exporting Email Addresses To Email Program

Sep 22, 2005

I have an Access database list of people, which includes their email addresses. I want to export the email addresses to Hotmail or Netscape email.

How can I do that?

View 1 Replies View Related

Modules & VBA :: Add CC Email Addresses Into Automated Email?

Aug 3, 2015

I have an automated email system (Lotus Notes) in a Access database I have created and am looking for the code needed to add up to 3 c.c addresses into an email prior to sending automatically.

The code I have to send the email to the To: individual is all working but what code I need to add and where for the c.c addresses of which there could be 1, 2 or 3. The control for To address is EmailTo = CustCopyEmail The controls for the 3 c.c emails are cc_EmailAddress, cc_EmailAddress1 and cc_EmailAddress2.

Here's the code I have:

Private Sub SEND_CC_Click()
' Set up the objects required for Automation into Lotus Notes.
Dim Maildb As Object 'The mail database.
Dim Session As Object 'The Lotus Notes session.
Dim MailDoc As Object 'The mail document itself.
Dim UserName As String 'The current users Lotus Notes name.

[code]....

View 8 Replies View Related

Please Review This Code, (simple Code) New With Codes

Feb 16, 2006

Works great, but when I hit the number "3", (3 times in row) it will let me into the form. I want it to not let me in IF I don't know the password.

Where did I go wrong?

Private Sub Form_Load()
Dim pw As Variant

If InputBox("What is the password?", "Password") = "1" Then
Else
MsgBox "Invalid Password", vbCritical, "Sorry Charlie"
DoCmd.Close
If InputBox("What is the password?", "Password") = "2" Then
Else
MsgBox "Invalid Password", vbCritical, "Sorry Charlie"
DoCmd.Close
End If
End If


End Sub

View 14 Replies View Related

Using Code To Unprotect And Protect Viewing Code

Jan 14, 2007

I protect my code from people being able to read it by setting a password on the code from Tools > Properties, selecting the Protection tab and entering a password, and clicking "Lock Project"

Is there a way to write code that will remove that Lock Project check and check it back on?

I've looked through the Application.SetOption command and it doesn't seem to be one of the choices. It would be very helpful if someone knew how to do this.

Thanks

SHADOW

View 6 Replies View Related

DB And Email

Jun 11, 2005

I have a Access database with a field that lists emails. What I want to do is somehow tie it to my outlook so that I can email all of the people in that list. Does anyone know how to accomplish this?


Thanks.

I have Access 97 and outlook 2000.

View 1 Replies View Related

Email

May 2, 2006

Hi,

Here is a good one thats got me stuck for ages.

I have made an email facility in my database and I have set the message box as a memo for the Unlimited Characters. There are a number of templates that the user can select but I cannot get the simple text to show formatting (as in rich text style). I have had a look at RTF syntax but cannot work out how to tag the simple text to show it once it has been emailed.

Can any one help?

thanks

View 1 Replies View Related

Email

May 24, 2007

I have been workign with this email piece and am sort of close but not close at the same time....

WHat I want to do is click a button on a form and have it open up my email and force emial addresses in the "To:" section of the email...

I can accomplish this with:

Dim stDocName As String
stDocName = "Mass_Mailing_Report1"
DoCmd.SendObject acReport, stDocName, acFormatTXT, "EMAIL ADDRESS", , , "SUBJECT LINE", , True

But that requires me to maunally update the email addresses each time a user changes or is added...
What I want to do is read a table and grab the address from a field in that table. So as the table grows, changes, shrink the email portion is seemless.
Does anyone have an ideas as to how I can accomplish this?

Thanks....

View 7 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved