Trimitere automata email

Ce este nou in Microsoft Word 2013?
Informatii despre cum se utilizeaza Microsoft Word 2013.
Editare, formatare, automatizare de documente
Închis
dani7905
Mesaje: 41
Membru din: Mar Sep 10, 2013 10:04 am

Trimitere automata email

Mesaj de dani7905 » Mie Sep 24, 2014 1:59 pm

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

Avatar utilizator
Dr.Excel
Site Admin
Site Admin
Mesaje: 1997
Membru din: Sâm Ian 24, 2009 1:45 pm
Localitate: Bucharest
Contact:

Re: Trimitere automata email

Mesaj de Dr.Excel » Dum Sep 28, 2014 10:29 am

Am scris codul la evenimentul Change al controlului Status:

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

MCT, MCITP
MOS Master Instructor
IT Learning

dani7905
Mesaje: 41
Membru din: Mar Sep 10, 2013 10:04 am

Re: Trimitere automata email

Mesaj de dani7905 » Lun Sep 29, 2014 8:04 am

Multumesc Dr.Excel !

dani7905
Mesaje: 41
Membru din: Mar Sep 10, 2013 10:04 am

Re: Trimitere automata email

Mesaj de dani7905 » Lun Sep 29, 2014 8:42 am

Salut,
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.

Avatar utilizator
Dr.Excel
Site Admin
Site Admin
Mesaje: 1997
Membru din: Sâm Ian 24, 2009 1:45 pm
Localitate: Bucharest
Contact:

Re: Trimitere automata email

Mesaj de Dr.Excel » Lun Sep 29, 2014 9:53 am

Arata-ne un screenshot al ferestrei Tools/References

MCT, MCITP
MOS Master Instructor
IT Learning

dani7905
Mesaje: 41
Membru din: Mar Sep 10, 2013 10:04 am

Re: Trimitere automata email

Mesaj de dani7905 » Lun Sep 29, 2014 10:48 am

Salut,
Am atasat.

Multumesc !
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

dani7905
Mesaje: 41
Membru din: Mar Sep 10, 2013 10:04 am

Re: Trimitere automata email

Mesaj de dani7905 » Lun Sep 29, 2014 10:51 am

Am atasat inca un print screen.Poate va ajuta sa va dati seama.

Multumesc !
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

dani7905
Mesaje: 41
Membru din: Mar Sep 10, 2013 10:04 am

Re: Trimitere automata email

Mesaj de dani7905 » Joi Oct 16, 2014 3:40 pm

Buna ziua,
Ma puteti ajuta sa rezolv aceasta problema.Multumesc

Închis

Înapoi la “Intrebari despre Word 2013”