Nimic mai simplu... doar trebuie sa ai de undeva acea valoare pe care o vrei inserata in subiect pentru ca functia SendObject are ca paremetrii:
SendObject(ObjectType, ObjectName, OutputFormat, To, Cc, Bcc, Subject, MessageText, EditMessage, TemplateFile)
si de preferat ar fi sa ai pregatiti toti parametrii necesari functiei.
De ex. urmatorea functie face ce vrei tu:
Cod: Selectaţi tot
Private Sub cmdEmail_Click()
cTo = [EMail]
cSubject = "Comanda nr: " & [NrIntern]
cMessage = "Corpul mesajului" & Chr(13) & "A doua linie de text"
On Error GoTo PrelucrareEroare
DoCmd.SendObject , , , cTo, , , cSubject, cMessage, True, False
On Error GoTo 0
Exit Sub
PrelucrareEroare:
MsgBox "Eroare: " & Err.Number & " = " & Err.Description
On Error GoTo 0
End Sub
In exemplul atasat ai si o forma :
Table1-Memo in care se trimite un mesaj al carui "MessageText" este completat atat prin crearea unui text in momentul apelarii functiei cat si prin adaugarea unui camp memo din baza de date.
Nota: in exemplul meu penultimul parametru este True din motive de "debug" - pentru a permite editarea mesajului inainte de expediere (ca sa nu se faca neaparat trimiterea - tocmai de aceea apare si functia de prelucrare a erorilor ca sa "avertizeze ca userul a "renuntat" la trimiterea mesajului)
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.