Hilfe
Neues Thema
Antworten
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
Nach oben
