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
SharQue99
Mesaje: 71
Membru din: Vin Noi 02, 2012 3:06 pm

Trimitere email din Access 2010

Mesaj de SharQue99 » Vin Mar 25, 2016 12:11 pm

Salutare.
Va rog, pe cei care aveti in exemplu de trimitere email din acces, sa ma ajutati si pe mine cu el.
Ce vreau eu sa realizez ca sa faca programelul meu :
-Am lista de clienti gen "Multiple Items".
-Am coloana "email" si langa ea am coloana cu butonul "email" . La apasarea lui vrea sa se creeze un email nou catre adresa de email din campul "email".
-Am coloana "Data ultimei trimiteri" si as vrea ca aici sa imi apara data ultimului email trimis.

Acum, am urmatoarele intrebari :
1) Cum fac ca email-ul sa se trimita catre adresa de email scrisa in coloana precedenta.
2) Cum fac ca email-ul sa contina un text ( Prezentare) + semnatura mea. Pot sa creez un template de email pe care sa il trimita ? Poate fi si HTML ?
3) Daca la un client am mai multe adrese de email, cum sa il fac sa trimita ambelor adrese ?
4) Cum fac ca in campul " data ultimei trimiteri" sa apara data ultimului email trimis ? As fi incercat cu data ultimei modificari a clientului insa daca modific altceva gen "nume" o sa ma pacalesc..

Nu doresc rezolvarea de catre voi, vreau sa invat sa il fac singur da as avea nevoie doar de idei/sfaturi.
Va multumesc mult.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

SharQue99
Mesaje: 71
Membru din: Vin Noi 02, 2012 3:06 pm

Re: Trimitere email din Access 2010

Mesaj de SharQue99 » Mie Mar 30, 2016 2:04 pm

Oare chiar nu trimite nimeni email din soft ?

mariusc
Mesaje: 268
Membru din: Vin Sep 28, 2012 6:24 pm

Re: Trimitere email din Access 2010

Mesaj de mariusc » Mie Mar 30, 2016 2:55 pm

SharQue99 scrie:Oare chiar nu trimite nimeni email din soft ?
Din soft, da. Dar nu din Access, ci din SQL Server.
Vezi daca te ajuta: https://msdn.microsoft.com/en-us/librar ... e.11).aspx

Avatar utilizator
mesersmith
Mesaje: 2088
Membru din: Sâm Oct 23, 2010 6:44 am
Localitate: calarasi
Contact:

Re: Trimitere email din Access 2010

Mesaj de mesersmith » Mie Mar 30, 2016 8:50 pm

Da, eu am folosit aceasta optiune.
Eu la o apasare de buton dintr-un raport care este in fapt o factura fiscala, chem un macro care se ocupa de tot.
Iti ridic un print screen cu ce cuprinde acest macro din care ar trebui sa te prinzi cum lucreaza.

De asemenea, poti citi aici:
https://msdn.microsoft.com/en-us/librar ... 96469.aspx
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

SharQue99
Mesaje: 71
Membru din: Vin Noi 02, 2012 3:06 pm

Re: Trimitere email din Access 2010

Mesaj de SharQue99 » Mie Apr 06, 2016 11:03 am

Multumesc frumos insa mie imi trebuia ca sa trimit textul in continutul email-ului si nu in atasament.

Pentru cei ce doresc sa faca acelasi lucru, am gasit urmatorul exemplu : http://www.blueclaw-db.com/download/dow ... xample.htm

Multumesc tuturor pentru ajutor.

SharQue99
Mesaje: 71
Membru din: Vin Noi 02, 2012 3:06 pm

Re: Trimitere email din Access 2010

Mesaj de SharQue99 » Mie Apr 06, 2016 2:24 pm

Salutare,

Am si eu BD din atasament si doresc ca in formularul "F_Mailings", campul "Message Body" sa setez ca si "Default Value" un text HTML.
Aveti idee cum as putea seta asa ceva ?

Va multumesc frumos anticipat.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

SharQue99
Mesaje: 71
Membru din: Vin Noi 02, 2012 3:06 pm

Re: Trimitere email din Access 2010

Mesaj de SharQue99 » Joi Apr 07, 2016 9:52 am

Sau macar sa aduc din alta parte textul dar sa se respecte formatul html ( culori text, spatii, etc ) ????
Va rog, daca aveti vre-o idee, chiar daca este posibil sa nu functioneze, sa mi-o spuneti.
Va multumesc.

SharQue99
Mesaje: 71
Membru din: Vin Noi 02, 2012 3:06 pm

Re: Trimitere email din Access 2010

Mesaj de SharQue99 » Lun Apr 18, 2016 12:21 pm

Buna ziua,
Am si eu nevoie de ajutorul vostru si va rog mult sa ma ajutati.
Am codul urmator care , la apasarea unui buton, trimite email prin aplicatia outlook. E am gasit acest cod intr-o baza de date 2003 si functioneaza f bine.

Cod: Selectaţi tot

Private Sub Command20_Click()

        Dim mess_body As String
        Dim appOutLook As Outlook.Application
        Dim MailOutLook As Outlook.MailItem
        Set appOutLook = CreateObject("Outlook.Application")
        Set MailOutLook = appOutLook.CreateItem(olMailItem)
            
            Set appOutLook = CreateObject("Outlook.Application")
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
            With MailOutLook
            .BodyFormat = olFormatRichText
            .To = Me.Email_Address
            .Subject = Me.Mess_Subject
            .HTMLBody = Me.Mess_Text
            If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
                .Attachments.Add (Me.Mail_Attachment_Path)
            End If
            '.DeleteAfterSubmit = True   'This would let Outlook send th note without storing it in your sent bin
            .Send
            End With
            'MsgBox MailOutLook.Body
            Exit Sub
email_error:
            MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
            Resume Error_out
Error_out:
End Sub
Incerc sa il folosesc intr-o baza de date 2010 si imi aparea eroare : " user-defined type not defined" . Ma poate ajuta cineva sa convertesc acest cod astfel incat sa mearga si la 2010 ? La VBA chiar nu ma pricep absolut deloc.
Va multumesc mult.

SharQue99
Mesaje: 71
Membru din: Vin Noi 02, 2012 3:06 pm

Re: Trimitere email din Access 2010

Mesaj de SharQue99 » Lun Apr 18, 2016 12:22 pm

SharQue99 scrie:Buna ziua,
Am si eu nevoie de ajutorul vostru si va rog mult sa ma ajutati.
Am codul urmator care , la apasarea unui buton, trimite email prin aplicatia outlook. Eu am gasit acest cod intr-o baza de date 2003 si functioneaza f bine.

Cod: Selectaţi tot

Private Sub Command20_Click()

        Dim mess_body As String
        Dim appOutLook As Outlook.Application
        Dim MailOutLook As Outlook.MailItem
        Set appOutLook = CreateObject("Outlook.Application")
        Set MailOutLook = appOutLook.CreateItem(olMailItem)
            
            Set appOutLook = CreateObject("Outlook.Application")
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
            With MailOutLook
            .BodyFormat = olFormatRichText
            .To = Me.Email_Address
            .Subject = Me.Mess_Subject
            .HTMLBody = Me.Mess_Text
            If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
                .Attachments.Add (Me.Mail_Attachment_Path)
            End If
            '.DeleteAfterSubmit = True   'This would let Outlook send th note without storing it in your sent bin
            .Send
            End With
            'MsgBox MailOutLook.Body
            Exit Sub
email_error:
            MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
            Resume Error_out
Error_out:
End Sub
Incerc sa il folosesc intr-o baza de date 2010 si imi aparea eroare : " user-defined type not defined" . Ma poate ajuta cineva sa convertesc acest cod astfel incat sa mearga si la 2010 ? La VBA chiar nu ma pricep absolut deloc.
Va multumesc mult.

SharQue99
Mesaje: 71
Membru din: Vin Noi 02, 2012 3:06 pm

Re: Trimitere email din Access 2010

Mesaj de SharQue99 » Lun Apr 18, 2016 2:23 pm

Scuze pentru deranj insa am rezolvat bifand MIcrosoft Outlook 14.0 Object Library in References .
Scuze inca o data insa am prostul obicei de a nu ma lasa pana nu scotocesc si eu si pana la urma rezolv singur.

Scrie răspuns

Înapoi la “Intrebari despre Access 2010”