Trimitere email din Access 2010

[cvmircea]

Eu trimit mail-uri din aplicatiile mele folosind contul de Gmail. De exemplu am lista cu op-urile, la clic pe butonul mail din dreptul unui op se salveaza raportul in format pdf si se deschide formularul pentru trimiterea mail-ului cu toate cimpurile necesare completate.
Codul pentru butonul de mail este :

Cod: Selectaţi tot

Private Sub Command29_Click()
Dim strDocName As String
Dim strWhere As String
strDocName = "OrdinPlata"
strWhere = "[IDOrder]=" & Me!IDOrder
DoCmd.OpenReport strDocName, acPreview, , strWhere

DoCmd.OutputTo acOutputReport, "OrdinPlata", acFormatPDF, _
"D:\" & "OP " & Me!IDOrder & ".PDF"
If Application.CurrentProject.AllReports(ComenziLaFurnizori).IsLoaded = True Then
DoCmd.Close acReport, "OrdinPata"
End If
DoCmd.OpenForm "SendMail", , , , acNormal, adDialog
Forms![SendMail].Form![Atasament] = "D:\" & "OP " & Me!IDOrder & ".PDF"
Forms![SendMail].Form![Subiect] = "OP Nr " & Me!IDOrder
Forms![SendMail].Form![txtGmailTo] = Me!Email
Forms![SendMail].Form![Mesaj] = "OP Nr " & Me!IDOrder
End Sub

In cimpul Text poti scrie continutul mail-ului. Daca trimiti des mail-uri care au acelasi text ai putea face un tabel cu texte predefinite si sa completezi campul text cu unul din acestea.