VBA no Outlook - salvar Email na rede

[Caio_web]

Ola pessoal,

 

Encontrei uma programacao em VBA em run script muito interessante que salva os emails os email no driver. porém só consigo salvar o arquivo dentro do C:/ ao invés de na rede.

Alguem saberia modificar o código abaixo para que fosse possível salvar em outro driver de rede, por exemplo M:/test/

 

+++++

Public Sub SaveMsg(Item As Outlook.MailItem)Dim sPath As StringDim dtDate As DateDim sName As StringDim enviro As Stringenviro = CStr(Environ("USERPROFILE"))sName = Item.SubjectReplaceCharsForFileName sName, "_"dtDate = Item.ReceivedTimesName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _vbUseSystem) & Format(dtDate, "-hhnnss", _vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & ".msg"' use My Documents in older Windows.sPath = enviro & "\\HSDG-AD.INT\HQ\HAM-GROUP11\ACE\Transshipment\"Debug.Print sPath & sNameItem.SaveAs sPath & sName, olMSGEnd SubPrivate Sub ReplaceCharsForFileName(sName As String, _sChr As String _)sName = Replace(sName, "/", sChr)sName = Replace(sName, "\", sChr)sName = Replace(sName, ":", sChr)sName = Replace(sName, "?", sChr)sName = Replace(sName, Chr(34), sChr)sName = Replace(sName, "<", sChr)sName = Replace(sName, ">", sChr)sName = Replace(sName, "|", sChr)End Sub

+++++

 

Obrigado!