• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

Outlook VBA problem ze skryptem zapisującym maile do plików txt z nazwami takimi jak tematy

0 głosów
64 wizyt
pytanie zadane 7 maja 2018 w Visual Basic przez Browarnik123 Użytkownik (840 p.)
Sub SaveMyMsg(MyMail As MailItem)
'MVP OShon from VBATools.pl
 Dim fso As Object 'FileSystemObject
 Dim strID$, strFolderPath$, strSaveName$
 Dim olNS As Outlook.NameSpace
 Dim oMail As Outlook.MailItem
 Dim strSubject As String

 strSubject = MyMail.Subject
 strID = MyMail.EntryID
 Set olNS = Application.GetNamespace("MAPI")
 Set oMail = olNS.GetItemFromID(strID)
 strFolderPath = MakeWholePath("C:\Temp\email")
 strSaveName = strSubject
 Set fso = CreateObject("Scripting.FileSystemObject")

 If fso.FileExists(strFolderPath & strSaveName) Then
    fso.DeleteFile strFolderPath & strSaveName
 End If

 oMail.SaveAs strFolderPath & strSaveName, OLTXT

 Set oMail = Nothing
 Set olNS = Nothing
 Set fso = Nothing
End Sub

Private Function FileExists(FilePath As String) As Boolean
On Error GoTo blad
 FileExists = Len(Dir(FilePath, vbDirectory Or vbHidden Or vbSystem)) > 0
Exit Function
blad:
FileExists = False
End Function

Private Sub MakeWholePath(FileWithPath As String)
Dim x&, PathToMake$
For x = LBound(Split(FileWithPath, "\")) To UBound(Sp

Tak jak w temacie . Skrypt działał dopuki nie dodałem  linijek odpowiedzialnych za pobieranie nazwy tematu z maila:

 

 Dim strSubject As String

 strSubject = MyMail.Subject

 

Zaloguj lub zarejestruj się, aby odpowiedzieć na to pytanie.

Podobne pytania

0 głosów
1 odpowiedź 112 wizyt
0 głosów
1 odpowiedź 981 wizyt
pytanie zadane 23 września 2017 w Visual Basic przez Adam Domański Początkujący (330 p.)
0 głosów
0 odpowiedzi 37 wizyt
pytanie zadane 22 sierpnia 2017 w Systemy operacyjne, programy przez ernest4013 Gaduła (3,280 p.)
Porady nie od parady
Pytania na temat serwisu SPOJ należy zadawać z odpowiednią kategorią dotyczącą tej strony.SPOJ

64,791 zapytań

111,250 odpowiedzi

233,951 komentarzy

46,683 pasjonatów

Przeglądających: 145
Pasjonatów: 1 Gości: 144

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto dwie polecane książki warte uwagi. Pełną listę znajdziesz tutaj.

...