Inserare imagine in semnatura de e-mail
-
- Mesaje: 21
- Membru din: Sâm Noi 21, 2015 5:47 pm
Inserare imagine in semnatura de e-mail
Salut,
Am personalizat recent un cod VBA pentru expedierea automată a unor e-mailuri. Codul funcționează perfect, dar ceea ce aș dori eu, este să adaug o imagine în semnătură care este defapt un logo.
Am încercat diferite variante, dar nu am reușit. Codul VBA este:
Sub AEmails()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim OL As Object, rng As Range
Dim EmailItem As Object
Const mypatth As String = "Y:\Daniel G\Promotie\"
Set OL = CreateObject("Outlook.Application")
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
On Error GoTo cleanup
For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And _
LCase(Cells(cell.Row, "C").Value) = "yes" Then
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = cell.Value
.Subject = "Promotie"
.HTMLBody = "<font face=Calibri><font size=3><H3> Stimate " & cell.Offset(0, 2).Value & " " & cell.Offset(0, -1).Value & "," & "</H3> " & _
"Prin intermediul acestui e-mail, avem deosebita placere să vă informăm despre noua promoţie,<BR>" & _
"care se va desfăşura, în perioada:Iulie şi August 2017 pentru: <br>" & _
"<ul> <li>Napolitane</li> </ul>" & _
"<ul> <li>Ciocolata </li> </ul> " & _
"<ul> <li> Bomboane</li></ul><br>" & _
"În fişierul ataşat, se găsesc informaţii despre regulamentul promoţiei. <br>" & _
"Aşteptăm cu interes comenzile dumneavoastră. <br><br>" & _
"Cu stimă,<BR>" & _
"Gherghel Daniel<BR><BR> " & _
"Proiect test<BR>" & _
"Str. Clujului <BR>" & _
"(CJ) România <BR>" & _
"Mobil + 40 075 368 1506 <BR> " & _
"E-mail: daniyelgherghel@gmail.com <BR>" & _
"<A HREF=""#"">si-te</A>"
.Attachments.Add ("Y:\Daniel G\Promotie\PromoRo.pdf")
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
End If
Next cell
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
Ar fi o solutie pentru inserarea unei imagini, in corpul e-mailului?
Multumesc
Am personalizat recent un cod VBA pentru expedierea automată a unor e-mailuri. Codul funcționează perfect, dar ceea ce aș dori eu, este să adaug o imagine în semnătură care este defapt un logo.
Am încercat diferite variante, dar nu am reușit. Codul VBA este:
Sub AEmails()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim OL As Object, rng As Range
Dim EmailItem As Object
Const mypatth As String = "Y:\Daniel G\Promotie\"
Set OL = CreateObject("Outlook.Application")
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
On Error GoTo cleanup
For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And _
LCase(Cells(cell.Row, "C").Value) = "yes" Then
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = cell.Value
.Subject = "Promotie"
.HTMLBody = "<font face=Calibri><font size=3><H3> Stimate " & cell.Offset(0, 2).Value & " " & cell.Offset(0, -1).Value & "," & "</H3> " & _
"Prin intermediul acestui e-mail, avem deosebita placere să vă informăm despre noua promoţie,<BR>" & _
"care se va desfăşura, în perioada:Iulie şi August 2017 pentru: <br>" & _
"<ul> <li>Napolitane</li> </ul>" & _
"<ul> <li>Ciocolata </li> </ul> " & _
"<ul> <li> Bomboane</li></ul><br>" & _
"În fişierul ataşat, se găsesc informaţii despre regulamentul promoţiei. <br>" & _
"Aşteptăm cu interes comenzile dumneavoastră. <br><br>" & _
"Cu stimă,<BR>" & _
"Gherghel Daniel<BR><BR> " & _
"Proiect test<BR>" & _
"Str. Clujului <BR>" & _
"(CJ) România <BR>" & _
"Mobil + 40 075 368 1506 <BR> " & _
"E-mail: daniyelgherghel@gmail.com <BR>" & _
"<A HREF=""#"">si-te</A>"
.Attachments.Add ("Y:\Daniel G\Promotie\PromoRo.pdf")
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
End If
Next cell
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
Ar fi o solutie pentru inserarea unei imagini, in corpul e-mailului?
Multumesc
Re: Inserare imagine in semnatura de e-mail
Buna,
Daca aveti setata o semnatura pe acel cont ea ar trebui sa apara si in mail-urile tranmise cu acel cod.
Daca doriti sa personalizati doar mail-urile trimise cu acest cod, fara a crea un alt cont cu semnatura specifica, vedeti linkul de mai jos, poate va ajuta
https://www.rondebruin.nl/win/s1/outlook/signature.htm
Daca aveti setata o semnatura pe acel cont ea ar trebui sa apara si in mail-urile tranmise cu acel cod.
Daca doriti sa personalizati doar mail-urile trimise cu acest cod, fara a crea un alt cont cu semnatura specifica, vedeti linkul de mai jos, poate va ajuta
https://www.rondebruin.nl/win/s1/outlook/signature.htm
Am invatat sa inotam in apa, ca pestii
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
-
- Mesaje: 21
- Membru din: Sâm Noi 21, 2015 5:47 pm
Re: Inserare imagine in semnatura de e-mail
Buna,
Doresc sa personalizez doar e-mailurile trimise cu acel cod.
Multumesc pentru aceasta informatie, este de mare ajutor.
Apreciez ajutorul oferit!
Doresc sa personalizez doar e-mailurile trimise cu acel cod.
Multumesc pentru aceasta informatie, este de mare ajutor.
Apreciez ajutorul oferit!
Re: Inserare imagine in semnatura de e-mail
Sa intelegem ca ai rezolvat? sau mai ai nevoie de ajutor.
Daca nu ai rezolvat: acel logo este un fisier (html, htm, jpg... sau text)?
sau este o imagine pusa intro celula din fisier?
Daca nu ai rezolvat: acel logo este un fisier (html, htm, jpg... sau text)?
sau este o imagine pusa intro celula din fisier?
I don't care what you think of me! Unless you think I'm awesome – in which case, you're right! Carry on
-
- Mesaje: 21
- Membru din: Sâm Noi 21, 2015 5:47 pm
Re: Inserare imagine in semnatura de e-mail
Nu, inca nu am rezolvat.
Am verificat codul indicat de tine si acum ma gandesc la o metoda sa intercalez cele 2 coduri VBA, pentru a-mi ramanea si semnatura in e-mail.
Ideea este ca in codul personalizat de mine, tot cotinutul e-mailului este scris in .HTMLBody, deci inclusiv semnatura de e-mail. In codul indicat se pastreaza semnatura predefinita in Outlook si practic eu o sa implementez particularitatea respectiva in codul meu.
Logo-ul este un fisier jpg, dar il pot redefini ca html sau alt format...
Am verificat codul indicat de tine si acum ma gandesc la o metoda sa intercalez cele 2 coduri VBA, pentru a-mi ramanea si semnatura in e-mail.
Ideea este ca in codul personalizat de mine, tot cotinutul e-mailului este scris in .HTMLBody, deci inclusiv semnatura de e-mail. In codul indicat se pastreaza semnatura predefinita in Outlook si practic eu o sa implementez particularitatea respectiva in codul meu.
Logo-ul este un fisier jpg, dar il pot redefini ca html sau alt format...
-
- Mesaje: 21
- Membru din: Sâm Noi 21, 2015 5:47 pm
Re: Inserare imagine in semnatura de e-mail
Multumec in primul rand utilizatorului: "Nills" pentru indicatii.
Scriu dupa ceva timp pentru ca doar acum am avut timp sa refac aplicatia.
Afisez solutia gasita de mine in ideea ca va fi de folos cuiva (am subliniat ceea ce am adaugat in cod).
Practic acum aplicatia trimite e-mailuri, adauga un fisier in atasament si isi pastreaza semnatura din Outlook.
Sub AEmails()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim cell As Range
Dim OL As Object, rng As Range
Dim EmailItem As Object
Const mypatth As String = "Y:\Daniel G\Folder\"
Set OL = CreateObject("Outlook.Application")
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody= ""
On Error GoTo cleanup
For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And _
LCase(Cells(cell.Row, "C").Value) = "yes" Then
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.Display
.To = cell.Value
.Subject = "Promotie"
.HTMLBody = "<font face=Calibri><font size=3><H3> Stimate " & cell.Offset(0, 2).Value & " " & cell.Offset(0, -1).Value & "," & "</H3> " & _
"Prin intermediul acestui e-mail, avem deosebita placere să vă informăm despre noua promoţie,<BR>" & _
"care se va desfăşura, în perioada:Iulie şi August 2017 pentru: <br>" & _
"<ul> <li>Napolitane</li> </ul>" & _
"<ul> <li>Ciocolata </li> </ul> " & _
"<ul> <li> Bomboane</li></ul><br>" & _
"În fişierul ataşat, se găsesc informaţii despre regulamentul promoţiei. <br>" & _
"Aşteptăm cu interes comenzile dumneavoastră. <br><br>" & _
"Cu stimă,<BR>" & _
"Gherghel Daniel<BR><BR> " & _
"Proiect test<BR>" & _
"Str. Clujului <BR>" & _
"(CJ) România <BR>" & _
"Mobil + 40 075 368 1506 <BR> " & _
"E-mail: daniyelgherghel@gmail.com <BR>" & _
"<A HREF=""#"">si-te</A>"
str body & "<br>" & .HTMLBody
.Attachments.Add ("Y:\Daniel G\Folder.pdf")
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
End If
Next cell
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
Scriu dupa ceva timp pentru ca doar acum am avut timp sa refac aplicatia.
Afisez solutia gasita de mine in ideea ca va fi de folos cuiva (am subliniat ceea ce am adaugat in cod).
Practic acum aplicatia trimite e-mailuri, adauga un fisier in atasament si isi pastreaza semnatura din Outlook.
Sub AEmails()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim cell As Range
Dim OL As Object, rng As Range
Dim EmailItem As Object
Const mypatth As String = "Y:\Daniel G\Folder\"
Set OL = CreateObject("Outlook.Application")
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody= ""
On Error GoTo cleanup
For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And _
LCase(Cells(cell.Row, "C").Value) = "yes" Then
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.Display
.To = cell.Value
.Subject = "Promotie"
.HTMLBody = "<font face=Calibri><font size=3><H3> Stimate " & cell.Offset(0, 2).Value & " " & cell.Offset(0, -1).Value & "," & "</H3> " & _
"Prin intermediul acestui e-mail, avem deosebita placere să vă informăm despre noua promoţie,<BR>" & _
"care se va desfăşura, în perioada:Iulie şi August 2017 pentru: <br>" & _
"<ul> <li>Napolitane</li> </ul>" & _
"<ul> <li>Ciocolata </li> </ul> " & _
"<ul> <li> Bomboane</li></ul><br>" & _
"În fişierul ataşat, se găsesc informaţii despre regulamentul promoţiei. <br>" & _
"Aşteptăm cu interes comenzile dumneavoastră. <br><br>" & _
"Cu stimă,<BR>" & _
"Gherghel Daniel<BR><BR> " & _
"Proiect test<BR>" & _
"Str. Clujului <BR>" & _
"(CJ) România <BR>" & _
"Mobil + 40 075 368 1506 <BR> " & _
"E-mail: daniyelgherghel@gmail.com <BR>" & _
"<A HREF=""#"">si-te</A>"
str body & "<br>" & .HTMLBody
.Attachments.Add ("Y:\Daniel G\Folder.pdf")
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
End If
Next cell
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub