Citat:
Sudarica: imam još jedan problem a vidjela sam malo po forumima da je to problem inače.
Kada šalješ e_mail iz Excela nemaš Digital Signature (potpis), znam da ćeš reći da Ron de Bruin ima rješenje ali meni smeta GetBoiler (malo mi fali engleski)
I nije to problem kada šalješ jedan snimljeni-ažurirani Workbook iz Excela putem e-maila, ali ne znam kako bi to bilo na tvom primjeru i tvojim zahtjevima (možda bi mogao netko tko aktivno programira u VBA?)
Kao što si rekla Ron de Bruin ima rješenje za to (slanje Workbook na više e-mail adresa uz prikačeni Signature).
Što se tiče GetBoiler jednostavno ga kopiraj u neki module tvoje radne knjige
Code:
Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function
Drugi Macro zavisi šalješ li HTML ili PLAIN predložak. Ovo je primjer za Html predložak
Code:Sub Mail_Outlook_With_Signature_Html()
' Ne zaboravi kopirati funkciju GetBoiler u module.
' radi u Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim SigString As String
Dim Signature As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "<H2><B>Poštovani prijatelju</B></H2>" & _
"Šaljem ti izvešće za 2011<br>" & _
"Javi mi ako ima problema<br>" & _
"<A HREF=""http://www.ic.ims.hr/index.html"">posjeti moju web stranicu</A>" & _
"<br><br><B>pozdravljam te i ugodno popodne</B>"
'Upotrijebi drugi SigString ako koristiš Vista ili Win 7 a prvi ignoriraj komentarima
'ovo je prvi SigString
SigString = "C:\Documents and Settings\" & Environ("username") & _
"\Application Data\Microsoft\Signatures\TVOJ-SIGNATURE.htm"
'ovo je drugi SigString
'SigString = "C:\Users\" & Environ("username") & _
"\AppData\Roaming\Microsoft\Signatures\TVOJ-SIGNATURE.htm"
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
On Error Resume Next
With OutMail
.To = "
[email protected]"
.CC = "
[email protected]"
.BCC = ""
.Subject = "Šaljem izvješće za 2011"
.HTMLBody = strbody & "<br><br>" & Signature
'Možeš dodati attachment ako želiš
'.Attachments.Add ("C:\test.txt")
.Send 'Send je za automatsko slanje a .Display za pripremu slanja i mogućnost editiranja
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Potrebno je da pronađeš naziv svog Signature na određenoj putanji i zamjeniš naziv "TVOJ-SIGNATURE.htm"
Ovo uredno funkcionira kada šaljem jedan Workbook na više e-mail adresa koje definiram u samoj makronaredbi.
Ne znam kako bi to ukomponirala u svoj problem, no možda bi se i moglo ?
btw: vidi attach i usput posjeti
http://www.rondebruin.nl/mail/folder3/signature.htm