Pytanie : Odbitkowy email w sieć falcówka

Cześć Ekspert,

I potrzeba Ekspert pomagać. Odkąd I zmieniać mój Oulook od 2003 w 2007, wydawać się jak the dołączać pismo już nie. I używać ten kod the wysyłać rzecz w sieć jeżeli the podległy tytuł być "TK: ". Nadzieja Ekspert móc troubleshoot this.
 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

Dim WithEvents olkFolder Jako Outlook.Items

Intymny Okręt podwodny Application_Quit ()
    Ustalony olkFolder = Nic
Końcówka Okręt podwodny

Intymny Okręt podwodny Application_Startup ()
    Ustalony olkFolder = Session.GetDefaultFolder (olFolderSentMail). Rzecz
Końcówka Okręt podwodny

Intymny Okręt podwodny olkFolder_ItemAdd (ByVal Rzecz Przedmiot)
    "Redagować the warunek na the następny linia"
      Jeżeli InStr ((1), Item.Subject, "TK: ") Wtedy
        "Redagować the skoroszytowy ścieżka na the następny linia"
        Item.SaveAs "\ \ bc04 \ Magistrala \ Dane \ Falcówka \" & RemoveIllegalCharacters (Item.Subject) & ".msg", olMSG
    Kończyć Jeżeli
Kończyć Okręt podwodny

Funkcja RemoveIllegalCharacters (strValue Sznurek) Sznurek
    "Purpose: Usuwać charakter który móc w filename od sznurek."
    "Pisać: 4/24/2009"
    "Autor:  BlueDevilFan"
    "Światopogląd: Wszystkie wersja
    RemoveIllegalCharacters = strValue
    RemoveIllegalCharacters = Zamieniać (RemoveIllegalCharacters, "<", "")
    RemoveIllegalCharacters = Zamieniać (RemoveIllegalCharacters, ">", "")
    RemoveIllegalCharacters = Zamieniać (RemoveIllegalCharacters, ": ", "")
    RemoveIllegalCharacters = Zamieniać (RemoveIllegalCharacters, Chr (34), "'")
    RemoveIllegalCharacters = Zamieniać (RemoveIllegalCharacters, "/", "")
    RemoveIllegalCharacters = Zamieniać (RemoveIllegalCharacters, "\", "")
    RemoveIllegalCharacters = Zamieniać (RemoveIllegalCharacters, "|", "")
    RemoveIllegalCharacters = Zamieniać (RemoveIllegalCharacters, "? ", "")
    RemoveIllegalCharacters = Zamieniać (RemoveIllegalCharacters, "*", "")
Końcówka Funkcja

Odpowiedź : Odbitkowy email w sieć falcówka

> Przy the sedno i łączyć funkcja być dokładnie the ten sam procedura który I wysyłać ten sam.

Nie, ponieważ ty dzwonić CurrentDb wieloskładnikowy czas dokąd ty musieć ono wieloskładnikowy tylko.
Tutaj być jak dla stół w tutaj kartoteka lokalizować w the ten sam falcówka the ten sam.
Ty móc łatwo ono using the ścieżka dla the backend jako parametr.

/gustav
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

  Ciemnawy dbs Jako DAO.Database
  Ciemnawy tdf Jako DAO.TableDef
  
  Ciemnawy strSourceTableName  Sznurek
  Ciemnawy strCurrentPath      Sznurek
  Ciemnawy strAttachPath       Sznurek
  Ciemnawy strFrontendPath     Sznurek
  Ciemnawy strBackendPath      Sznurek
  Ciemnawy strConnect          Sznurek
  
  Na Błąd Rozpoczynający Err_GentilknytData
  
  Ustalony dbs = CurrentDb
  
  strFrontendPath = dbs. Imię
  strCurrentPath = W połowie (strFrontendPath, (1), InStrRev (strFrontendPath, "\ ") - 1)

  Dla Dbs.TableDefs tdf W dbs.TableDefs
    strSourceTableName = tdf.SourceTableName
    Jeżeli Len (strSourceTableName) > (0) Wtedy
      strBackendPath = Rozłam (tdf. Łączyć, "=") (1)
      strAttachPath = W połowie (strBackendPath, (1), InStrRev (strBackendPath, "\ ") - 1)
      Jeżeli StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> (0) Wtedy
        strConnect = "; DATABASE=" & strCurrentPath &" \ AktivitetData.mdb "
        tdf. Łączyć = strConnect
        tdf.RefreshLink
      Kończyć Jeżeli
    Kończyć Jeżeli
  Następnie

  Ustalony tdf = Nic
  Ustalony dbs = Nic
Inne rozwiązania  
 
programming4us programming4us