Koda: Izberi vse
Sub PosljiEPosto()
Dim iMsg As Object
Dim iConf As Object
Dim y As Integer
Dim fil As String
y = ActiveCell.Row
fil = Cells(y, 4).Value & ".doc" ' dobi ime priloge
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = Cells(y, 12).Value ' dobi e-naslov
.CC = ""
.BCC = ""
.From = "dusan.f@siol.net"
.Subject = Cells(y, 3).Value
.TextBody = "LP Dušan"
.AddAttachment "c:\Moji dokumenti\" & fil
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
End Sub
Ali se da problem rešiti tako da je aktivni dokument pripet emailu ne da bi se pred tem shranil. Druga varianta je , da se prepreči spreminjanje hyperlika ob shranjevanju.
še ena ugotovitev: če shranim dokument na nek drug računalnik v interni mreži (drugo ime računalnika kot je navedeneo v linku) se shrani brez spremembe.
Se v naprej zahvaljujem za pomoč.
PS: tokrat brez vljudnostnih fraz, saj sedaj že vsi vemo kateri je najboljši forum za VBA.