Replies

Thanks Hans. I tried that and after in ran I got an error of invalid use of null. I pasted the SQL below. There are no null values in the aptDate field..

SELECT Count(event_tbl.[ApptID]) AS [CountOfApptID], CLng([Appointment Date]) AS ApptDate
FROM IBTTOEFLEvent_tbl
GROUP BY CLng([Appointment Date])
HAVING (((CLng([Appointment Date]))>=#1/1/2007# And (CLng([Appointment Date]))<=#11/30/2007#));

Hey Hans. I just wanted to give you an update. I was able to get this working uusing sentonbehalfof. Once I got the permissions straightened out with the group mailbox I was good to go. As always thanks for you help and thank to all whp post answers to postings on this board. It really is a god send.

Tried that and they wern’t thrilled with it. I could add the text to a table like you mentioned earlier but how do I format it like a letter like they want?

Is there a way to allow outlook to open before sending the email and allow the user to set the from and the send the email? Even if they had to press the send button that would be ok..

With objDoc.MailEnvelope.Item
.To = Nz(srt, “”)
.Subject = strSubject
.SentOnBehalfOfName = “gbanks@ets.org”
.Attachments.Add “c:tempword.doc”
.Send

End With

Good point Hans. I use this so much I forgot. I think you are right though..

Hey Hans.

I got this to work in my production db but I did have another question on this sample db. I added a combo box to with a yes or no drop down. If the user select yes I want it to use word.doc on my c:temp folder. If they select no I want it to grab word1.doc for the c:temp folder. Can this be done? Thanks..

I tired that before I posted and it just hangs now. Can you take a look? Thanks..

I got it working great. Thanks!! One question is there a way we can have this not automatically send the email. Is there a way they can preview the email and send it themselves.? Thanks

Hans I created a sample db with the code on a button on a form and when I ran this is it gave an error saying object does not support this property or method . I set the referenece like you said but not luck. Can you take a look at this? Thanks…

So if my word doc is c:word.doc where would I call that in the code? Not sure if I’m doing this right…

dim objDoc As String

objDoc = “c:word.doc”

With objDoc.MailEnvelope.Send
.To = Nz(srt, “”)
‘.To = SQL
.Subject = stSubject
.HTMLBody = stBody

Just a regular word doc hans. I would say just text.

Sorry about that Hans. I am very close to completeing this. I pasted the top part of my code below.. I was using the stlinkCriteria to show only the one record on the CPRreport that I eant to attach. It would pull this number from the form. It worked before when I used sendobject but I’m not sure how to use it now that I’m calling outlook. Any thoughts? Thanks..

stLinkCriteria = “EIRID=” & Chr(34) & Me(“EIRID”) & Chr(34)

This is the old code i used for DoCmd.SendObject

‘DoCmd.SendObject acReport, “CPRReport”, “RichTextFormat(*.rtf)”, “”, “”, “”, “Site CPR Attached”, “If you have any questions please respond to this email. Thank You…”, False, stLinkCriteria

New part

DoCmd.OutputTo ObjectType:=acOutputReport, _
objectname:=”CPRReport”, _
OutputFormat:=acFormatRTF, _
OutputFile:=”F:CPRReport.rtf”, _
Autostart:=True

im appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject(“Outlook.Application”)
Set MailOutLook = appOutLook.CreateItem(olMailItem)

With MailOutLook
.To = “gbanks@ets.org”
.Subject = “Batch Releases”
.HTMLBody = “Hello”
.Attachments.Add “F:no CPR.doc”, olByValue, 1, “Incomplete test no CPR”
.Attachments.Add “f:TempCPRReport.rtf”, olByValue, 1, “CPRReport_rpt.rtf”
.Display
End With

They were abosolutlely helpful Thank you so much. I got today’s problem figured out as well. Thanks..

Try this file Hans…

Hans the last thing I’m trying to do here is make another pop-up subform so they can have some stored escalation data about the record. I want to have the EIRID from the main form for populate the EIRID field on the subform popup. I tried something below but it doesn’t work. I’ve attached another sample db can you please take a look. Thanks..

Private Sub EscalateCPR_Click()
On Error GoTo Err_Candidates_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = “EscalatedCPRS”
stLinkCriteria = Me(“EIRID”).DefaultValue = “””” & Me(“EIRID”).Value & “”””

DoCmd.OpenForm stDocName, , , stLinkCriteria
‘Me(“EIRID”).DefaultValue = “””” & Me(“EIRID”).Value & “”””

Exit_Candidates_Click:
Exit Sub

Err_Candidates_Click:
MsgBox Err.Description
Resume Exit_Candidates_Click
End Sub