ok....how about emaililing someone based on field contents? =]

[elektrik]

Given my very basic VB skill level, would it be difficult to code a routine that would pull the email address out of a field and automatically send email based on the contents? The last question I posed was a little over my head, so I'm not sure if this will be any better, but what the heck ;-)

Thanks for everyone who's helped me so far-you all are great!

 

[Talismanic]

Put this behind the comand button:

DoCmd.SendObject , , , Me.txtEmail, , , "YourSubject", "YourText", True

Then just replace the Me.txtEmail with Me.YourTxtBox that holds the email address.

If you want to use a subject line, or message text from a control (text box) you can substitute: (note the absense of the quotes when you use Me.AnyThing)

"YourSubject" with Me.YourSubject (replace your subject with your text box name)

"YourText" with Me.YourText (replace your subject with your text box name)

If you only want to use the email then leave the subject and message blank, just leave the empty commas.

 

[elektrik]

Great! Thanks, I'll try that out.

 

[elektrik]

Ok...I've incorporated it into my database, but here's the problem. When I call it, I get a message box that says "The expression On Dirty you entered as the event property setting has produced the following error: Out of stack space" and then I get gpf.

Here's my code (I'm using it with "On Dirty" on the main form)

Option Compare Database

'------------------------------------------------------------
' email
'
'------------------------------------------------------------
Function email()
On Error GoTo email_Err

If [Forms]![bug tracking backup]![Text128] = "Yes" Then
DoCmd.SendObject acTable, "Bug Tracking Database", "MS-DOSText(*.txt)", "someone@nowhere.com; someoneelse@nowhere.com", "", "", "Bug Status Update-Testing only. Disregard", "The following problem has your name assigned to it", False, ""
End If


email_Exit:
Exit Function

email_Err:
MsgBox Error$
Resume email_Exit

End Function

....

Any help would be appreciated...thanks!

 

[Talismanic]

elektrik,

Did you ever get this resolved? I know the code works behing a command button but not sure how to make it work with the On Dirty event.

Sorry I couldn't be of more help but I can at least bump this up for you so that maybe some one else will come along and help you out with it.

 

[elektrik]

Yes and no. I was able to email myself the entire database, but as of yet, I've been unable to figure out how to email the current bug (Ex. I'm editing/creating a bug and because the contents have changed, I want to email the person (whose email address I've entered into one of the fields) that specific record.

I'm closer than I was though, thanks to your help. If you could give any more suggestions as to how to email an individual record, that would help tremendously.

Thanks again for responding!

 

[Talismanic]

elektrik, check this code. It was cut and pasted from an app where I am doing something similar to what I think you are trying to do but with a twist. It formats the message part of the email like this:

___________________________________________
Date: 2/2/2001 12:29:19 PM
Contact: Dirk Gently
Employee Name: Author Dent

Conversation: This is sample text from my control.
___________________________________________

DoCmd.SendObject , , , , , , "Employee/Office Conversation Log", _
"Date: " & Me.Date & vbCrLf & "Contact: " & Me.OfficeEmployee & vbCrLf & _
"Employee Name: " & Me.EmployeeName & vbCrLf & vbCrLf & "Conversation: " _
& Me.Conversation, False

The Me.Conversation may be the only part of this that you are interested in because it takes what ever is in my conversation text box and puts it in the email. For you I think you will use your bug text field.

The rest of it puts it in an easy to read format. If this makes no sence at all or you would like me to email you a demo let me know.

 

[elektrik]

Ya, actually, I think I follow what you're trying to do. You've modified the SendObject statement to include the content of specific fields in the current form via email, right?

 

[Talismanic]

Yep thats it.

The & vbCrLf & starts a new line in VBA. I think it stands for Visual Basic Carraige Return Line Feed.

If you don't need the rest of the controls(text boxes) from the form to go into the email you can eliminate the vbCrlf and the other controls listed and narrow it down to just Me.YourBugReport control.

 

[elektrik]

Actually, I'm going to try to include as many fields as I can. I wonder though if this bit of code will take the currently displayed contents of, say, a combo box. I'll have to play with it. Thanks again! I never thought I'd say this (after trying to learn some type of programming language (and Visual Basic for the 4th time at that)), but this is actually starting to become fun!

 

[Talismanic]

elektrik I am with you there!

I started my obsession with computers when the Vic20 was new. It had 3k of memory and could do some amazing things with it. I programmed some simple loop statements back then or typed code from Run Magazine but I never did much more then play games with computers after my early programming experiments.

I thought programming was for nerds and only nerds could do it. I started working with Access last April, was forced into VBA found this site and a couple of others and now I am hooked. I love it! Now I am taking a Visual Basic class and self-learning ASP and HTML.

 

[elektrik]

Heh heh...I got you beat. My first "computer" experience was Pong (of course); then I went to my mom's work (she worked at one of the better elementary schools) and was introduced to the PET computer (with 2k of RAM!) heh...after that, it was all over!

I never could do programming well, so I instead focused on the things I could figure out about computers (hardware, O.S.s, etc.), and, like you, I was forced to find a solution with Access, and figured VB was the next logical step, since I had figured the majority of Access functions.

Anyway...thanks alot for the help-glad you can "relate" =]

Ciao!

 

[elektrik]

Heh heh...guess I was too hasty. I tried to put that code in there, and I ended up causing Access to gpf with a kernel32.dll error. Guess my co-worker is right: I know just enough to be dangerous!

 

[elektrik]

Ok...I think I figured out why I'm getting the gpf. I have my code in a standard module, instead of a Class module. Unfortunately, I know nothing of Class modules yet, so I guess I'm going to have to continue reading up on it.

 

[Talismanic]

Are you using the code builder behind an event to trigger this code?

 

[elektrik]

No I'm not...not to sure how that makes a difference though?

 

[Talismanic]

It will put the code in a class module and tie it directly to the controls event. I am a little confused now, are you doing all your code from the module section?

 

[elektrik]

sorry to confuse you. I have snippets of code behind certain fields (Ex. if I want to add the date an issue was closed into a different field, I have code behind that combo box using something like "AfterUpdate"), as well as using a main module for a few public functions (like emailing the current form). I actually just moved the email code to the main form because I was receiving "out of stack" errors and moving the code to the main module solved that problem but created the kernel32.dll error. As you may or may not have guessed, I still have very basic coding skills (although, I seem to have been upgraded from "junior member" here to "member"-boy is that a mistake! =])

I don't want to spend much more time on it, because I don't want to waste your time; this coupled with the fact that I might need to wait until my skills are more developed before I try something like this..

But hey, if you wanna keep helping me, who am I to argue? <grin>

 

[Talismanic]

elektrik, don't worry about it. Helping others is half the reason I keep coming back to AWF. I spent so much time begging help from others in the begining that I enjoy being able to share my knowledge when ever I get the chance to now!

Keep them posts and questions coming!

 

[elektrik]

Well, I'm going to try to bone up on my Class modules (I have 3 VB books-ONE of them should be able to explain it right!) before I try anything else. I'm sure however that this won't be my last question though Talismanic, so don't think you won't hear from me for a while. <grin>

Thanks again for the help duder.....