Új hozzászólás Aktív témák

• #12618 total90 támogató

  Új Válasz 2019-01-22 08:48:41 #12618

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  Az Excel topikba betettem egy kérdést, VBA és betenném ide is, hátha valaki tudna segíteni:[link]

• #11932 total90 támogató total90 #11930

  Új Válasz 2018-04-25 13:51:59 #11932

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  válasz total90 #11930 üzenetére

  2. is megoldva.

• #11931 total90 támogató total90 #11930

  Új Válasz 2018-04-25 09:58:11 #11931

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  válasz total90 #11930 üzenetére

  Közbe az első probléma megoldva, most már csak a HTML-es emílekkel van bajban

• #11930 total90 támogató

  Új Válasz 2018-04-25 09:09:50 #11930

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  Jönnék megint valamivel

  VBA Access

  A program megnyitja az Outlookot, majd egy adott mappa (VBATest) tartalmát egy adatbázisba/tabellába írja. Ide kerül(ne) minden ami az emailben van, tehát feladó, CC, BCC, ki kapja ez emailt, a levél tárgya... majd ha melléklet van, akkor azt lementi egy mappába.

  A kód maga:

  Option Compare Database
Option Explicit

Public Sub TestAccessDB_Outlook()


Dim db As DAO.Database, rs As DAO.Recordset
Dim objOutlook As Outlook.Application, objNameSpace As Outlook.NameSpace
Dim objMailordner As Outlook.MAPIFolder
Dim objGAINMailordner As Outlook.MAPIFolder
Dim objAttachment As Outlook.Attachment, objMail As Outlook.Items
Dim objEMail As Outlook.MailItem
Dim intCtr As Integer

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM tbl_Email_Log;")
Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objMailordner = objNameSpace.GetDefaultFolder(olFolderInbox)
Set objGAINMailordner = objMailordner.Folders("VBATest")
Set objMail = objGAINMailordner.Items

For Each objEMail In objMail
rs.AddNew
rs.Fields("Targy") = objEMail.Subject
rs.Fields("Mellekletszama") = objEMail.Attachments.Count
rs.Fields("Emailtulaj") = objEMail.ReceivedByName
rs.Fields("Ido") = objEMail.ReceivedTime
rs.Fields("Emailkuldo") = objEMail.ReplyRecipientNames
rs.Fields("BCC") = objEMail.BCC
rs.Fields("CC") = objEMail.CC
rs.Fields("Tartalom") = objEMail.Body
rs.Update
Next objEMail

For intCtr = 1 To objGAINMailordner.Items.Count
For Each objAttachment In objGAINMailordner.Items(intCtr).Attachments
objAttachment.SaveAsFile "C:\Users\user\Documents\" & objAttachment.FileName

Next objAttachment
Next intCtr

Forms!frm_Test.txt_Test = Forms!frm_Test.txt_Test & "A mappa üres" & vbNewLine


Set objAttachment = Nothing
Set objMail = Nothing
Set objMailordner = Nothing
Set objGAINMailordner = Nothing
Set objNameSpace = Nothing
objOutlook.Quit
Set objOutlook = Nothing

End Sub

  Van 2 dolog, amiben "hibázik" a program. Az első, hogy nem ismeri fel, hogy kitől kaptam az emailt. Ha nyomok egy debugot, akkor csak kiírja, hogy a mező üres, holott nem az.

  A másik, hogy ha az email tartalmába egy link szerepel, akkor azt nem tudja kezelni. Tehát html-t nem kezel.

  Van valami ötletetek?

• #11925 total90 támogató

  Új Válasz 2018-04-12 08:41:36 #11925

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  (#11923) Domonkos és (#11924) axioma

  Nem lett sehogy jó és végül egy másik úton kezdtem neki, amivel viszont jó lett.

  Köszi azért

• #11922 total90 támogató Domonkos #11921

  Új Válasz 2018-04-11 16:32:02 #11922

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  válasz Domonkos #11921 üzenetére

  Amikor beillesztem a GoTo ContinueLoop-ot, akkor kiírja, hogy syntaxhiba. Hogy pontosan mi, azt nem
  Utána csak pirossal kijelöli az egeszé sort, hogy hibás, de ennyi...

• #11920 total90 támogató sztanozs #11919

  Új Válasz 2018-04-11 16:09:37 #11920

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  válasz sztanozs #11919 üzenetére

  Így gondolod:

  If Not IsNull(rs!Email) = True Then strEmail = rs!Email
If Not IsNull(rs!Firstname) = True Then strFirstnamee = rs!Firstname
If Not IsNull(rs!Lastname) = True Then strLastname = rs!Lastname
If Not IsNull(rs!Usernumber) = True Then strUsernumber = rs!Usernumber

If strEmail = "" Then MsgBox "szöveg": rs.MoveNext: Exit GoTo ContinueLoop
If strFirstname = "" Then MsgBox "szöveg": rs.MoveNext: Exit GoTo ContinueLoop
If strLastname= "" Then MsgBox "szöveg": rs.MoveNext: Exit GoTo ContinueLoop
If strUsernumber = "" Then MsgBox "szöveg": rs.MoveNext: Exit GoTo ContinueLoop

strSubject = "Minden ok"
strHTMLHeader = "<!DOCTYPE html><html><head><style>p {font: 11pt Calibri; text-align: left;}</style><style>td {border:1px solid; font: 11pt Calibri; text-align: center;}</style><style>th {border:1px solid; font: 11pt Calibri;}</style></head>"
strTitle = "<p>Hallo</p>"
strMessage = "<p>Easy :)</p>"
'HTML Footer
strMessage = strMessage & "</body></html>"

With objMailItem
If Not strEmail = "" Then .To = strEmail
.Subject = strSubject
.HTMLBody = strHTMLHeader & strTitle & strMessage
.Display
.Save
End With




rs.MoveNext
ContinueLoop:
Loop
rs.Close

  Ezek után nekem Syntxhibát ad ki a GoTo-nál

• #11918 total90 támogató Domonkos #11917

  Új Válasz 2018-04-11 16:03:11 #11918

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  válasz Domonkos #11917 üzenetére

  Én is azon agyalok, hogy ha hibát talál, akkor ugyan kírja, de utána emiatt leállítja. Viszont, ha minden ok, akkor tovább pörgeti a listát a végéig... de akkor miért nem áll le az első korrekt adatok után, miért ugrik át a második sorba is a tabellán és keres?

• #11916 total90 támogató

  Új Válasz 2018-04-11 15:34:16 #11916

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  Jönnék megint valamivel

  Access VBA-ról van szó és a kód

  Option Compare Database
Option Explicit

Private Sub Email_senden()

Dim olApp As New Outlook.Application
Dim olNamespace As NameSpace
Dim objMailItem As MailItem
Dim objFolder As mapiFolder
Dim strTo As String
Dim strCC As String
Dim strTitle As String
Dim strSubject As String
Dim strHTMLHeader As String
Dim strMessage As String
Dim strEmail As String
Dim strFirstname As String
Dim strLastname As String
Dim strUsernumber As String
Dim strDatabase As String
Dim db As Database
Dim rs As Recordset
Dim strSQL As String
Dim oItem As Outlook.MailItem
Dim intAnzahl As Integer



strDatabase = "C:\Users\user\Documents\Kontakte.accdb"
Set db = CurrentDb


Set olApp = CreateObject("Outlook.Application")
Set olNamespace = olApp.GetNamespace("MAPI")
Set objFolder = olNamespace.GetDefaultFolder(olFolderInbox)
Set objMailItem = objFolder.Items.Add(olMailItem)


strSQL = "Select * FROM Kontakte;"
Set rs = db.OpenRecordset(strSQL)

Do Until rs.EOF

strEmail = ""
strFirstname = ""
strLastname = ""
strUsernumber = ""

If Not IsNull(rs!Email) = True Then strEmail = rs!Email
If Not IsNull(rs!Firstname) = True Then strFirstnamee = rs!Firstname
If Not IsNull(rs!Lastname) = True Then strLastname = rs!Lastname
If Not IsNull(rs!Usernumber) = True Then strUsernumber = rs!Usernumber

If strEmail = "" Then MsgBox "szöveg": rs.MoveNext: Exit Do
If strFirstname = "" Then MsgBox "szöveg": rs.MoveNext: Exit Do
If strLastname= "" Then MsgBox "szöveg": rs.MoveNext: Exit Do
If strUsernumber = "" Then MsgBox "szöveg": rs.MoveNext: Exit Do

strSubject = "Minden ok"
strHTMLHeader = "<!DOCTYPE html><html><head><style>p {font: 11pt Calibri; text-align: left;}</style><style>td {border:1px solid; font: 11pt Calibri; text-align: center;}</style><style>th {border:1px solid; font: 11pt Calibri;}</style></head>"
strTitle = "<p>Hallo</p>"
strMessage = "<p>Easy :)</p>"
'HTML Footer
strMessage = strMessage & "</body></html>"

With objMailItem
If Not strEmail = "" Then .To = strEmail
.Subject = strSubject
.HTMLBody = strHTMLHeader & strTitle & strMessage
.Display
.Save
End With




rs.MoveNext
Loop
rs.Close

Set rs = Nothing
Set db = Nothing
Set olApp = Nothing
Set olNamespace = Nothing
Set objFolder = Nothing
Set objMailItem = Nothing

End Sub

  Van egy tabellám, amiben meg vannak adva email, firstname, lastname és usernumber. Ha pl. kitörlök egy email címet, akkor jön egy megadott szöveg, hogy nincs az adatbázisban email és itt leáll.
  A problémám, hogy miért áll le, miért nem megy a következőre?

• #11915 total90 támogató Jim Tonic #11913

  Új Válasz 2018-04-11 10:35:29 #11915

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  válasz Jim Tonic #11913 üzenetére

  Köszi.

  (#11914) BTminishop

  

• #11912 total90 támogató

  Új Válasz 2018-04-10 09:34:41 #11912

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  Valaki tud könyvet ajánlani oop-hez magyarul, olyannak aki teljesen nulláról kezdene? Jó lenne ha programnyelvtől független lenne, tehát, hogy meg lehessen tanulni magát a gondolkodási módot, felépítést stb...

• #11908 total90 támogató total90 #11907

  Új Válasz 2018-04-05 11:24:08 #11908

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  válasz total90 #11907 üzenetére

  Megoldottam

• #11907 total90 támogató kovisoft #11906

  Új Válasz 2018-04-05 10:54:56 #11907

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  válasz kovisoft #11906 üzenetére

  Köszönöm, máris kiírja, hogy mennyi PDF-es E-mailem van

  Így írtam át:

  ' Az összes e-mail megszámolni
For intItem = Inbox.Items.Count To 1 Step -1
' Csak az olvasatlan leveleket csekkolni
If Inbox.Items(intItem).UnRead = True Then
' Meghatározni, hogy melyik objektumosztály és csak azon leveleket feldolgozni
If Inbox.Items(intItem).Class = olMail Then
Set oItem = Inbox.Items(intItem)
If Not oItem.Attachments.Count = 0 Then
For intAttachement = 1 To oItem.Attachments.Count
' Csak PDFes leveleket feldolgozni
strAttachementType = Right(oItem.Attachments.Item(intAttachement).FileName, 3)
If UCase(strAttachementType) = "PDF" Then
Mennyiseg = oItem.Attachments.Count + Mennyiseg
End If
Next
End If
End If
End If
Next
MsgBox "E-Mailek PDF csatolmánnyal " & Mennyiseg
End Sub

  Ez eddig oké, de... most csak egy E-Mail volt bent PDF-el, de ha több van, esetleg egy E-Mail több PDF-el, akkor nem számol tovább
  Vagy is minden egyes E-Mailben csak egy PDF-et észlel.

  Ki szeretném íratni, hogy összesen hány E-Mail van és valahogy megoldani, hogy ha egy E-Mailben több PDF van, akkor azt is számolja. Erre esetleg van ötleted?

  Update!

  Csináltam egy Dim EmailCount As Integer

  Majd beraktam ide:
  If UCase(strAttachementType) = "PDF" Then
Anzahl = oItem.Attachments.Count + Anzahl
EmailCount = oFolder.Items.Count

  A végén: MsgBox "Email PDF-el " & Mennyiseg & " összesen " & EmailCount & " E-Mailből"

  Az EmailCount-ra 0-t kapok

• #11905 total90 támogató

  Új Válasz 2018-04-05 10:00:56 #11905

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  Hali,

  MS Access VBA és lenne a következő kód:

  Dim oFolder As Outlook.MAPIFolder
Dim Inbox As Outlook.MAPIFolder
Dim Drafts As Outlook.MAPIFolder
Dim Archive As Outlook.MAPIFolder
Dim MailFolder As Outlook.MAPIFolder
Dim AdobeFolder As Outlook.MAPIFolder
Dim MailItem As Outlook.MailItem
Dim oItem As Outlook.MailItem
Dim i As Long
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim intAttachement As Integer
Dim intCounter As Integer
Dim intItem As Integer
Dim strMailbox As String
Dim strInbox As String
Dim strDrafts As String
Dim strArchive As String
Dim strDatabase As String
Dim strAttachementType As String
Dim Mennyiseg As Integer

' Outlookra csatlakozas
Set o_NS = oA.GetNamespace("MAPI")
o_NS.Logon , , , False
Set oFs = o_NS.Folders

'Outlook Mailbox
strMailbox = "e-mail címem"
strInbox = "Postafiók"
strArchive = ""

Set oFolder = oFs.Item(strMailbox)
Set Inbox = oFolder.Folders(strInbox)
Set AdobeFolder = Inbox.Folders("Adobe")
Set MailFolder = o_NS.GetDefaultFolder(olFolderOutbox)


' Az összes e-mail megszámolni
For intItem = Inbox.Items.Count To 1 Step -1
' Csak az olvasatlan leveleket csekkolni
If Inbox.Items(intItem).UnRead = True Then
' Meghatározni, hogy melyik objektumosztály és csak azon leveleket feldolgozni
If Inbox.Items(intItem).Class = olMail Then
Set oItem = Inbox.Items(intItem)
If Not oItem.Attachments.Count = 0 Then
For intAttachement = 1 To oItem.Attachments.Count
' Csak PDFes leveleket feldolgozni
strAttachementType = Right(oItem.Attachments.Item(intAttachement).FileName, 3)
If UCase(strAttachementType) = "PDF" Then
MsgBox "E-Mailek PDF csatolmánnyal " & Mennyiseg
End If
Next
End If
End If
End If
Next

End Sub

  Ha elindítom a kódot, akkor a pdf csatolmányos levelek számára nullát mutat, holott nem annyi van.
  Ötlet valakinek, hogy miért nem számolja?

  A kód a nagyobb kód része, a többi rész okés, de ez így nem akar működni

• #10676 total90 támogató Atapi #10675

  Új Válasz 2017-02-20 15:13:37 #10676

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  válasz Atapi #10675 üzenetére

  Szia,

  koszonom, sokat segitettel, mert erre eddig meg nem jottem ra

• #10660 total90 támogató

  Új Válasz 2017-02-17 10:55:38 #10660

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  Otthon van valaki Excel-VBA programozasban? Ezzel most ismerkedem es van egy kerdesem.

  Egyelore konnyebb feladatokat keresek magamnak. Most pl. egy szamologepet probalok csinalni es most felkesz allapotban van.

  A gondom az, hogy ha alap esetben ha "," utsz be egy szamologepen, akkor "0," lesz a kijelzon. Nalam ez valamiert nem mukodik, csak ","-t ir ki.

  A programkodom:

  Option Explicit
Public dblZahl_A As Double
Public dblZahl_B As Double
Public strOperation As String
Public intAnzClickDezimal As Integer


Private Sub cmd_clear_Click()


frm_Rechner.txt_Display = ""
intAnzClickDezimal = 0

End Sub

Private Sub cmd_dezimal_Click()

intAnzClickDezimal = intAnzClickDezimal + 1

If intAnzClickDezimal < 2 Then
frm_Rechner.txt_Display = frm_Rechner.txt_Display & ","
End If


End Sub

Private Sub cmd_durch_Click()

dblZahl_A = frm_Rechner.txt_Display
strOperation = "Durch"
frm_Rechner.txt_Display = ""
intAnzClickDezimal = 0

End Sub

Private Sub cmd_gleich_Click()

dblZahl_B = frm_Rechner.txt_Display

Select Case strOperation

Case "Plus"
frm_Rechner.txt_Display = dblZahl_A + dblZahl_B

Case "Minus"
frm_Rechner.txt_Display = dblZahl_A - dblZahl_B

Case "Mal"
frm_Rechner.txt_Display = dblZahl_A * dblZahl_B

Case "Durch"
frm_Rechner.txt_Display = dblZahl_A / dblZahl_B

End Select



End Sub

Private Sub cmd_mal_Click()

dblZahl_A = frm_Rechner.txt_Display
strOperation = "Mal"
frm_Rechner.txt_Display = ""
intAnzClickDezimal = 0

End Sub

Private Sub cmd_minus_Click()

dblZahl_A = frm_Rechner.txt_Display
strOperation = "Minus"
frm_Rechner.txt_Display = ""
intAnzClickDezimal = 0

End Sub

Private Sub cmd_plus_Click()

dblZahl_A = frm_Rechner.txt_Display
strOperation = "Plus"
frm_Rechner.txt_Display = ""
intAnzClickDezimal = 0

End Sub

Private Sub cmd1_Click()




frm_Rechner.txt_Display = frm_Rechner.txt_Display & "1"



End Sub


Private Sub cmd2_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "2"

End Sub

Private Sub cmd3_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "3"

End Sub

Private Sub cmd4_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "4"

End Sub

Private Sub cmd5_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "5"

End Sub

Private Sub cmd6_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "6"

End Sub
Private Sub cmd7_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "7"

End Sub
Private Sub cmd8_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "8"

End Sub
Private Sub cmd9_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "9"

End Sub
Private Sub cmd0_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "0"

End Sub

Private Sub UserForm_Click()

End Sub

  A "Dezimal" alatt kell a ","-t keresni. probaltam, hogy a

  Private Sub cmd_dezimal_Click()

intAnzClickDezimal = intAnzClickDezimal + 1

If intAnzClickDezimal < 2 Then
frm_Rechner.txt_Display = frm_Rechner.txt_Display & ","
End If


End Sub

  kodba a ","-t atirom "0,"-ra, de akkor pl. ha be akarom irni, hogy 56,36, akkor 560,36-ot ad ir ki

  Otlet valakinek?

• #3665 total90 támogató doc #3664

  Új Válasz 2009-04-02 10:33:17 #3665

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  válasz doc #3664 üzenetére

  Értem, kösz

• #3663 total90 támogató Jester01 #3661

  Új Válasz 2009-04-02 10:16:33 #3663

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  válasz Jester01 #3661 üzenetére

  Értem, és ha a egy webtárhelyről akarom leszedni az auroresponder segítségével, akkor lehet, hogy xcopy http:\\www.blalbla.... *.mdb d:\blog.... /c ?

• #3659 total90 támogató Jester01 #3657

  Új Válasz 2009-04-01 10:55:14 #3659

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  válasz Jester01 #3657 üzenetére

  Nem, nem tudtam mit írjak a * helyére Vagy a * elé az xcopy után írjam az elérési útvonalat ?

• #3656 total90 támogató total90 #3655

  Új Válasz 2009-03-31 23:48:49 #3656

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  válasz total90 #3655 üzenetére

  Na szóval még egyszer átolvasva a szöveget. Létrehoztam egy sajt.bat fájlt és abba írtam be ezt:
  xcopy *.mdb d:\blog\2009\marcius\proma /c
  Na, így sem műxik

• #3655 total90 támogató

  Új Válasz 2009-03-31 23:20:19 #3655

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  Hello!

  Egy kis segítség kellene. Használok egy autoresponder progit és elakadtam a kezelésben. Van egy ilyen rész, hogy:

  "Important Note: This backup will only take an online backup of the main
  autoresponder.mdb file, which holds the filter definitions, mailing definitions, etc .
  Data stored in formhandler databases is not backed up. To backup your form handler
  databases you can use the advanced scheduler to launch a batch file. Create a batch
  file which you for instance call dailybackup.bat. Add the line xcopy *.mdb
  c:\myhandlers /C in the batch file. Then use the advanced scheduler to schedule
  an external application (being this batch file) to run whenever you want. "

  Na most csináltam egy xcopy.mdb fájlt és abba leírtam az útvonalat:
  d:\blog\2009\marcius\proma /c
  Na az a gondom, hogy nem találja meg ezt. Valamit rosszul írhattam ? Az angol szöveg ha nem is 100%-ban de értem.

Új hozzászólás Aktív témák