Trimitere automata email
Trimitere automata email
Buna ziua,
Puteti sa ma ajutati sa gasesc o solutie (un macro) prin care sa trimit automat un email persoanelor aflate in fiecare inregistrare, cu informatile care se gasesc in aceea inregistrare.Ideal ar ca in momentul selectie statusului aplicatie sa plece automat un email catre acele persoane sau executie pe un buton.
Am atasat un fisier in acest sens.
Multumesc anticipat pentru ajutor !
Puteti sa ma ajutati sa gasesc o solutie (un macro) prin care sa trimit automat un email persoanelor aflate in fiecare inregistrare, cu informatile care se gasesc in aceea inregistrare.Ideal ar ca in momentul selectie statusului aplicatie sa plece automat un email catre acele persoane sau executie pe un buton.
Am atasat un fisier in acest sens.
Multumesc anticipat pentru ajutor !
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
- Dr.Excel
- Site Admin
- Mesaje: 1997
- Membru din: Sâm Ian 24, 2009 1:45 pm
- Localitate: Bucharest
- Contact:
Re: Trimitere automata email
Am scris codul la evenimentul Change al controlului Status:
Vezi fisierul atasat. Ca sa functioneze codul trebuie sa intri in editorul VBA si din Tools / References sa bifezi Microsoft Outlook (vezi poza de mai jos). Bineinteles ca trebuie sa ai Outlook instalat pe calculator
Bafta!
Cod: Selectaţi tot
Private Sub Status_Change()
If MsgBox("Trimit email-ul?", vbYesNo) = vbNo Then
Exit Sub
End If
Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject("Outlook.application")
Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = "Cod OIS: " & Form_frmIntroducere.Cod_OIS & vbCrLf
oMail.Body = oMail.Body & "Numar document: " & Numar_Document & vbCrLf
oMail.Body = oMail.Body & "Zona: " & Zona & vbCrLf
oMail.Body = oMail.Body & "Grup: " & Grup & vbCrLf
oMail.Body = oMail.Body & "Regiunea: " & Regiunea & vbCrLf
oMail.Body = oMail.Body & "Judet: " & Judet & vbCrLf
oMail.Body = oMail.Body & "Oras: " & Oras & vbCrLf
oMail.Body = oMail.Body & "Status: " & Status & vbCrLf
oMail.Body = oMail.Body & "Comentarii " & Comentarii & vbCrLf
oMail.Subject = "Email nou"
oMail.To = Email_Agent
oMail.Send
Set oMail = Nothing
Set oApp = Nothing
MsgBox "Email-ul a fost trimis cu suuces", vbInformation
End Sub
Bafta!
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
MCT, MCITP
MOS Master Instructor
IT Learning
Re: Trimitere automata email
Multumesc Dr.Excel !
Re: Trimitere automata email
Salut,
Am incercat sa bifezi optiunea in outlook si primes eroarea din fisierul atasat.
Puteti sa imi spuneti ce pot face ?
Multumesc
Am incercat sa bifezi optiunea in outlook si primes eroarea din fisierul atasat.
Puteti sa imi spuneti ce pot face ?
Multumesc
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
- Dr.Excel
- Site Admin
- Mesaje: 1997
- Membru din: Sâm Ian 24, 2009 1:45 pm
- Localitate: Bucharest
- Contact:
Re: Trimitere automata email
Arata-ne un screenshot al ferestrei Tools/References
MCT, MCITP
MOS Master Instructor
IT Learning
Re: Trimitere automata email
Salut,
Am atasat.
Multumesc !
Am atasat.
Multumesc !
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: Trimitere automata email
Am atasat inca un print screen.Poate va ajuta sa va dati seama.
Multumesc !
Multumesc !
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: Trimitere automata email
Buna ziua,
Ma puteti ajuta sa rezolv aceasta problema.Multumesc
Ma puteti ajuta sa rezolv aceasta problema.Multumesc