Inserare imagine in semnatura de e-mail

Ce este nou in Microsoft Excel 2016?
Informatii despre cum se utilizeaza Microsoft Excel 2016
Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
Închis
dani10gherghel
Mesaje: 21
Membru din: Sâm Noi 21, 2015 5:47 pm

Inserare imagine in semnatura de e-mail

Mesaj de dani10gherghel » Mie Mai 24, 2017 3:32 pm

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&#259 v&#259 inform&#259m despre noua promo&#355ie,<BR>" & _
"care se va desf&#259&#351ura, în perioada:Iulie &#351i August 2017 pentru: <br>" & _
"<ul> <li>Napolitane</li> </ul>" & _
"<ul> <li>Ciocolata </li> </ul> " & _
"<ul> <li> Bomboane</li></ul><br>" & _
"În fi&#351ierul ata&#351at, se g&#259sesc informa&#355ii despre regulamentul promo&#355iei. <br>" & _
"A&#351tept&#259m cu interes comenzile dumneavoastr&#259. <br><br>" & _
"Cu stim&#259,<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

TudyBTH
Moderator
Moderator
Mesaje: 993
Membru din: Joi Feb 11, 2016 2:12 pm
Localitate: Cluj Napoca

Re: Inserare imagine in semnatura de e-mail

Mesaj de TudyBTH » Mie Mai 24, 2017 4:08 pm

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

dani10gherghel
Mesaje: 21
Membru din: Sâm Noi 21, 2015 5:47 pm

Re: Inserare imagine in semnatura de e-mail

Mesaj de dani10gherghel » Joi Mai 25, 2017 8:52 pm

Buna,

Doresc sa personalizez doar e-mailurile trimise cu acel cod.
Multumesc pentru aceasta informatie, este de mare ajutor.

Apreciez ajutorul oferit!

Nills
Mesaje: 211
Membru din: Sâm Ian 23, 2016 11:24 am

Re: Inserare imagine in semnatura de e-mail

Mesaj de Nills » Joi Mai 25, 2017 9:28 pm

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?
I don't care what you think of me! Unless you think I'm awesome – in which case, you're right! Carry on :D

dani10gherghel
Mesaje: 21
Membru din: Sâm Noi 21, 2015 5:47 pm

Re: Inserare imagine in semnatura de e-mail

Mesaj de dani10gherghel » Vin Mai 26, 2017 8:06 am

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

dani10gherghel
Mesaje: 21
Membru din: Sâm Noi 21, 2015 5:47 pm

Re: Inserare imagine in semnatura de e-mail

Mesaj de dani10gherghel » Vin Aug 25, 2017 9:55 am

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&#259 v&#259 inform&#259m despre noua promo&#355ie,<BR>" & _
"care se va desf&#259&#351ura, în perioada:Iulie &#351i August 2017 pentru: <br>" & _
"<ul> <li>Napolitane</li> </ul>" & _
"<ul> <li>Ciocolata </li> </ul> " & _
"<ul> <li> Bomboane</li></ul><br>" & _
"În fi&#351ierul ata&#351at, se g&#259sesc informa&#355ii despre regulamentul promo&#355iei. <br>" & _
"A&#351tept&#259m cu interes comenzile dumneavoastr&#259. <br><br>" & _
"Cu stim&#259,<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

Închis

Înapoi la “Intrebari despre Excel 2016”