ich musste mich heute ein Problem mit Visual Basic lösen obwohl ich überhaupt keine ahnung davon habe
es geht darum, dass man im Outlook eine vcf Datei immer nur einzelln importieren kann bzw danach auf Speichern klicken muss. Ich hab mir jetzt mittels mr.google ein kleines Script zusammen gesucht /geschrieben
falls ihr den code testen wollt müsst ihr unter PROJECT / REFERENCES (zumindest bei mir mit vb 6) folgendes hinzufügen:
Microsoft Outlook 11.0 Object Library
Microsoft Script Runtime
Windows Script Host Object Model
Private Sub Command1_Click() Dim objWSHShell As IWshRuntimeLibrary.IWshShell Dim objOL As Outlook.Application Dim colInsp As Outlook.Inspectors Dim strVCName As String Dim fso As Scripting.FileSystemObject Dim fsDir As Scripting.Folder Dim fsFile As Scripting.File Dim vCounter As Integer Dim sAns As String sAns = App.Path Set fso = New Scripting.FileSystemObject Set fsDir = fso.GetFolder(sAns) For Each fsFile In fsDir.Files strVCName = sAns & "\" & fsFile.Name Set objOL = CreateObject("Outlook.Application") Set colInsp = objOL.Inspectors If colInsp.Count = 0 Then Set objWSHShell = CreateObject("WScript.Shell") objWSHShell.Run strVCName Set colInsp = objOL.Inspectors If Err = 0 Then Do Until colInsp.Count = 1 DoEvents Loop SendKeys ("{ENTER}") SendKeys ("{ENTER}") colInsp.Item(1).CurrentItem.Save colInsp.Item(1).Close olDiscard Set colInsp = Nothing Set objOL = Nothing Set objWSHShell = Nothing End If End If Next End Sub
Meine erste frage ist... wie lass ich das script einfach laufen ohne dass ich auf den Command1 Button klicken muss... so dass es automatisch startet wenn ich die exe aufrufe und sich die exe dann automatisch wieder beendet.
Meine 2te Frage ist einwenig problematischer. wenn ein Kontakt schon vorhanden ist kommt wie im Anhang 1 zuerst eine Warnung dass dieser Kontakt schon vorhanden ist... dies sollte mit OK bzw enter bestätigt werden danach anahang2 kommt noch eine warnung die mit ok bestätigt werden soll. dafür hab ich im Code zurzeit SendKeys ("{ENTER}") verwendet... dies ist aber nicht gerade ideal... habt ihr da eine bessere lösung?
meine 3te Frage ist für euch sicherlich wieder einfacher. falls keine vcf files in dem Ordner vorhanden sind wo sich auch die Application befindet (app.path) dann soll garnichts gemacht werden.
es wäre echt super nett von euch wenn ihr mir da helfen köntet ... da ich echt ein anfänger in vb bin.
vielen lieben dank für eure bemühungen