Trimitere email din Doc Wd cu VBA
Salut,
Va solicit ajutorul in urmatoarea problema. Am creat un macro care in acest moment trimite un email dintr-un document Wd deschis pe o adresa de email (Outlook). Vreau sa trec cu el la nivelul urmator si acesta sa-mi caute Ownerul fisierului deschis (poate din Properties>Origin>Last saved by) si functie de acel nume utilizator sa-mi transforme intr-o adresa de email. Ex: in acest moment in word deschis utilizator este "Stefan Georgescu", iar adresa corespunzatoare de email a utilizatorului este "Stefan.Georgescu@xxxxx.ro". Multumesc
Public Sub CommandButton1_Click()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "stefan.georgescu@xxxxx.com"
.CC = ""
.BCC = ""
.Subject = "Avizare fisa TEST"
.Body = "AVIZAT. Multumesc mult"
'.HTMLBody = "Avizat" & "<br>" & .HTMLBody
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("c:\")
.Send 'or use .Display
MsgBox "E-mail trimis cu succes"
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
[/anchor]
Va solicit ajutorul in urmatoarea problema. Am creat un macro care in acest moment trimite un email dintr-un document Wd deschis pe o adresa de email (Outlook). Vreau sa trec cu el la nivelul urmator si acesta sa-mi caute Ownerul fisierului deschis (poate din Properties>Origin>Last saved by) si functie de acel nume utilizator sa-mi transforme intr-o adresa de email. Ex: in acest moment in word deschis utilizator este "Stefan Georgescu", iar adresa corespunzatoare de email a utilizatorului este "Stefan.Georgescu@xxxxx.ro". Multumesc
Public Sub CommandButton1_Click()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "stefan.georgescu@xxxxx.com"
.CC = ""
.BCC = ""
.Subject = "Avizare fisa TEST"
.Body = "AVIZAT. Multumesc mult"
'.HTMLBody = "Avizat" & "<br>" & .HTMLBody
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("c:\")
.Send 'or use .Display
MsgBox "E-mail trimis cu succes"
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
[/anchor]
-
- Mesaje:448
- Membru din:Mar Dec 11, 2018 8:54 pm
Re: Trimitere email din Doc Wd cu VBA
Salut,
Daca e vorba de fisier word, de ce ai postat in forumul pentru EXCEL????
Daca e vorba de fisier word, de ce ai postat in forumul pentru EXCEL????
藍
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
Re: Trimitere email din Doc Wd cu VBA
@Indigo-ONE: Imi cer scuze, sunt mai nou p-aici. Ma poti redirectiona catre Forumul-ul indicat ptr aceasta speta? Multumesc
-
- Mesaje:448
- Membru din:Mar Dec 11, 2018 8:54 pm
Re: Trimitere email din Doc Wd cu VBA
Salut,
Nu e o nenorocire...
Functie de varianta de Word folosita, vom ruga un moderator sa mute acest topic in subforumul aferent versiunii de Word pe care o folosesti.
Nu e o nenorocire...

Functie de varianta de Word folosita, vom ruga un moderator sa mute acest topic in subforumul aferent versiunii de Word pe care o folosesti.
藍
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
Re: Trimitere email din Doc Wd cu VBA
Salut,
Versiunea este Wd 2016. Multumesc
Versiunea este Wd 2016. Multumesc
Re: Trimitere email din Doc Wd cu VBA
Am incercat sa modific linia .To = "stefan.georgescu@xxxxx.com", cu Environ, dar imi trimite mail-ul mie, preia mailul meu, iar eu doresc sa preia e-mailul Autorului doc. Wd deschis/activ, care va fi intotdeauna alta persoana.
Am citit ceva de obtinerea numelui autorului documentului (Last Modified By) cu BuiltinDocumentProperties, iar apoi sa convertesc acel nume intr-o adresa de email, dar nu reusesc sa scriu codul.
Va rog sa ma ajutati!
Am citit ceva de obtinerea numelui autorului documentului (Last Modified By) cu BuiltinDocumentProperties, iar apoi sa convertesc acel nume intr-o adresa de email, dar nu reusesc sa scriu codul.
Va rog sa ma ajutati!
-
- Mesaje:448
- Membru din:Mar Dec 11, 2018 8:54 pm
Re: Trimitere email din Doc Wd cu VBA
Cred ca s-ar putea rezolva daca ai avea o lista de nume cu adresele de mail corespunzatoare, undeva in pagina, sau daca stii calea completa si numele fisierului .docx
藍
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
-
- Mesaje:448
- Membru din:Mar Dec 11, 2018 8:54 pm
Re: Trimitere email din Doc Wd cu VBA
La adresa mail ai scris "stefan.georgescu@xxxxx.com". Acel xxxx.com este identic pentru toti userii? este din intranet?
Putem obtine numele autorului dar dupa cum probabil stii acel nume este numele din Office, este specificat in File>Options si deobicei nu este acelasi nume cu userul din Windows.
Stii adresele de mail care corespund cu numele din Office?
Putem obtine numele autorului dar dupa cum probabil stii acel nume este numele din Office, este specificat in File>Options si deobicei nu este acelasi nume cu userul din Windows.
Stii adresele de mail care corespund cu numele din Office?
藍
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
"I fear the day that technology will surpass our human interaction. The world will have a generation of idiots."
Albert Einstein
Re: Trimitere email din Doc Wd cu VBA
Indigo, emailul este identic ptr toti userii companiei. Ideea este ca fiecare user din departament va trimite cate un document Wd la avizat catre superior, iar eu i-am creat un buton care ruleaz macro din Wd prin care sa trimita masaj catre Autorul documentului. Totul functioneaza, mai putin acest aspect, ca nu stiu sa modific linia din cod .TO: astfel incat sa preia numele Last modified by/Author si sa-i faca aceasta conversie in adresa email. Mci
Re: Trimitere email din Doc Wd cu VBA
Stiu toate adresele din Outlook, suntem 30 de colegi in acest departament, deci fiecare va trimite individual cate un doc Wd spre avizat si ar trebui sa primeasca un mesaj inapoi.