Ir ao conteúdo
  • Cadastre-se
Caio_web

VBA no Outlook - salvar Email na rede

Recommended Posts

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!

Editado por dif
inserir a tag CODE

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×