Trimitere email din Access 2010

Ce este nou in Microsoft Access 2010?
Informatii despre cum se utilizeaza Microsoft Access 2010.
Baze de date, Interogari, Formulare, Rapoarte, etc
cvmircea
Moderator
Moderator
Mesaje: 402
Membru din: Lun Aug 03, 2009 7:25 pm
Localitate: Alba Iulia
Contact:

Re: Trimitere email din Access 2010

Mesaj de cvmircea » Mar Iun 14, 2016 10:37 pm

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.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

Scrie răspuns

Înapoi la “Intrebari despre Access 2010”