metin 2

[user]

Kimden: "lena_form" <[email protected]>
Konu: Set a macro to send an emailöm

I have a macro that each time a change is requested in a document, belonging
to a database, send an email to warn of this request. But the email has a
fixed text in the subject. I want the subject with the result of a specific
field of a table (the document name or number)
how do I do it?
Thanks

 

[user]

Kimden: "lena_form" <[email protected]>
Konu: Set a macro to send an emailöm

I have a macro that each time a change is requested in a document,
belonging
to a database, send an email to warn of this request. But the email has a
fixed text in the subject. I want the subject with the result of a
specific
field of a table (the document name or number)
how do I do it?
Thanks

 

[user]

Kimden: "lena_form" <[email protected]>
Konu: Set a macro to send an emailöm

I have a macro that each time a change is requested in a document,
belonging
to a database, send an email to warn of this request. But the email has a
fixed text in the subject. I want the subject with the result of a
specific
field of a table (the document name or number)
how do I do it?
Thanks

 

[user]

Kimden: "lena_form" <[email protected]>
Konu: Set a macro to send an emailöm

I have a macro that each time a change is requested in a document,
belonging
to a database, send an email to warn of this request. But the email has a
fixed text in the subject. I want the subject with the result of a
specific
field of a table (the document name or number)
how do I do it?
Thanks

 

[tcosmas]

Look at the following page to get you started:
http://www.databasedev.co.uk/sendobject.html

Sample code triggered by changed text in the table's [Location]
field:

Private Sub Location_AfterUpdate()
Dim stSubject As String

stSubject = "Location updated to " & [Form]![Location] & " for " &
[Form]![Item]
stBody = "Location updated to " & [Form]![Location] & " for " &
[Form]![Item] & "! You'd better verify that!!!"

DoCmd.SendObject , , , "(e-mail address removed)", , , stSubject, stBody

Exit_Location_AfterUpdate:
Exit Sub

Err_Location_AfterUpdate:
MsgBox Err.Description
Resume Exit_Location_AfterUpdate

End Sub