Registriert seit: 19.07.2015
Version(en): 365/2016
Hallo alle,
ich versuche mich seit ein paar Tagen an O2016, da gibt es zunächst das Problem, wie schließt ma O richtig. Bis jetzt kommt immer die Meldung "O wird geschlossen", passiert aber nichts. Wenn ich das mache - schließen oder Neustart - kommt eben diese Meldung mit gleichzeitigem "... Programm verhindert dass Win geschlossen wird ... schlißen sie das Prog" und da beißt sich die Schlange halt in den Schwanz. Bislang konnte ich mir nur so helfen, den PC durch Dauerdruck auf den Einschaltknopf zwangs-ab-zu-schalten, und das ist sicher nicht das gelbe vom Ei.
Also 1., wie beende ich O richtig. Habe im Internet gefunden man sollte O über das Kreuz oben rechts beenden, das geht aber auch nicht.
2. ich war dabei die Kontakte aus dem iPhone eizugeben, das funktioniert über iCoud , na ja, man muß halt jeden Kontakt. einzeln behandeln. Ich habe ein fast pssendes Makro gefunden - wo das war, muss ich nachtragen - sonst verschwindet alles was ich bis hierher geschrieben habe wieder - und das hatte ich eben schon. Das Makro läuft bedingt, den für O notwendigen Verweis habe ich schon nachgetragen - aber ohne Hilfe werde ich da nicht weiterkommen. Dazu muss ich aber das Makro auch versuchen selbst anzupasseh, Felder die übernommen werdem sollen. Aber vielleicht schon mal eine Strukturhilfe, es sollen Felder von iCloude / Kontakte in O Kontakte aufgenommen werden.
Grüße, Charly
Registriert seit: 19.07.2015
Version(en): 365/2016
So, das Makro stammte aus " Daten aus Mails nach Excel exportieren".
Ich schau mir das auch nochmal an, mal sehen ob ich einiges selbst herausfinde.
Grüße, Charly
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi Charly,
willst du nun das Betriebssystem schließen (WIN...) oder nur dein Outlook?
Die Meldung, die du bekommst, ist typisch für das Herunterfahren des Rechners, wenn noch Programme offen sind. Aber du kannst mit Klick auf den Button "Trotzdem herunterfahren" oder so ähnlich, den Vorgang erzwingen. Bei Outlook habe ich bislang dein Problem nicht nachvollziehen können.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 19.07.2015
Version(en): 365/2016
Code: Option Explicit
Public Sub UebertragAntragTest()
Dim olApp As Outlook.Application
Dim olName As Outlook.NameSpace
Dim olFolderStart As Outlook.MAPIFolder
Dim olFolderEnd As Outlook.MAPIFolder
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim olFolderItems As Long
Dim strNewSubject As String
Dim vntTempArray As Variant
Dim lngTextToVal As Long
Dim lngZeileFzArt As Long
Dim xlRange As Long
Dim lngFZCount As Long
Set olApp = Application
Set olName = olApp.GetNamespace("MAPI")
Set olFolderStart = olName.Session.Folders("RMH Software").Folders("Posteingang").Folders("Ticket-System")
Set olFolderEnd = olName.Session.Folders("RMH Software").Folders("Posteingang").Folders("Ticket-System").Folders("Erledigt")
Set xlApp = New Excel.Application
With xlApp
.Visible = True
.Workbooks.Open Environ("USERPROFILE") & "\Desktop\Moped2015.xlsb"
Set xlBook = xlApp.Workbooks("Moped2015.xlsb")
Set xlSheet = xlBook.Sheets("Import Jürgen")
With xlBook
With xlSheet
For olFolderItems = olFolderStart.Items.Count To 1 Step -1
strNewSubject = Replace(olFolderStart.Items(olFolderItems).Subject, _
"[ACHTUNG! Absenderadresse kann gefaelscht sein - bitte ueberpruefen!] ", "")
strNewSubject = Replace(strNewSubject, "(", "")
strNewSubject = Replace(strNewSubject, "Wink", "")
If Mid(strNewSubject, 1, 9) = "Ticket_ID" Then
vntTempArray = Split(olFolderStart.Items(olFolderItems).Body, vbCrLf)
lngTextToVal = Val(Mid(vntTempArray(40), 9, 1))
lngZeileFzArt = 15
For lngFZCount = 1 To lngTextToVal
xlRange = _
.Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & xlRange) = olFolderStart.Items(olFolderItems).SentOn
.Range("B" & xlRange) = strNewSubject
.Range("D" & xlRange) = lngTextToVal
.Range("E" & xlRange) = Replace(vntTempArray(5), "Anrede: ", "")
.Range("F" & xlRange) = Replace(vntTempArray(6), "Name: ", "")
.Range("G" & xlRange) = Replace(vntTempArray(7), "Vorname: ", "")
.Range("H" & xlRange) = Replace(vntTempArray(8), "Geburtstag: ", "")
.Range("I" & xlRange) = Replace(vntTempArray(9), "Strasse: ", "")
.Range("J" & xlRange) = Replace(vntTempArray(10), "Plz: ", "")
.Range("K" & xlRange) = Replace(vntTempArray(11), "Ort: ", "")
.Range("L" & xlRange) = Replace(vntTempArray(12), "Mail_wiederholt: ", "")
.Range("M" & xlRange) = Replace(vntTempArray(13), "alter1: ", "")
.Range("N" & xlRange) = Replace(vntTempArray(14), "Telefon: ", "")
.Range("O" & xlRange) = Replace(vntTempArray(lngZeileFzArt), "fahrzeug_art" & lngFZCount & ": ", "")
.Range("P" & xlRange) = Replace(vntTempArray(lngZeileFzArt + 1), "fahrzeug_hersteller" & lngFZCount & ": ", "")
.Range("Q" & xlRange) = Replace(vntTempArray(lngZeileFzArt + 2), "fahrzeug_schlüssel" & lngFZCount & ": ", "")
.Range("R" & xlRange) = Replace(vntTempArray(lngZeileFzArt + 3), "fahrzeug_datum" & lngFZCount & ": ", "")
.Range("S" & xlRange) = Replace(vntTempArray(lngZeileFzArt + 4), "vorvertrag" & lngFZCount & ": ", "")
.Range("U" & xlRange) = Replace(vntTempArray(35), "angebot: ", "")
.Range("V" & xlRange) = Replace(vntTempArray(36), "beratung: ", "")
.Range("W" & xlRange) = Replace(vntTempArray(37), "zustimmung: ", "")
.Range("T" & xlRange) = Mid(vntTempArray(44), 14, 4)
lngZeileFzArt = lngZeileFzArt + 5
Next lngFZCount
End If
olFolderStart.Items(olFolderItems).Move olFolderEnd
Next olFolderItems
End With
.Save
.Close
End With
.Quit
End With
End Sub
Das war der Original Code.
Schließen mache ich eben nochmals und versuche mir zu merken, was da alles gemsldet wrd :@
Grüße, Charly
Registriert seit: 12.04.2014
Version(en): Office 365
Hallo,
ich besitze kein Iphone und habe deswegen auch in diesem Bereich keine Erfahrung, aber reicht es nicht die Daten über Itunes zu synchronisieren um die Kontakte nach Outlook zu bekommen?
Gruß
Peter
Registriert seit: 11.04.2014
Version(en): Office 365
Hallo!
Das Makro ist ja auch für das Übertragen von Daten nach Excel. Bei iOS kann ich Dir nicht helfen. Aber zeig uns doch mal Deine Anpassungen.
Gruß, René
Registriert seit: 19.07.2015
Version(en): 365/2016
Hallo Peter,
wüßte ich leider nicht wie.
Hallo René,
ja, schon klar, da müsste was angepasst werden. Mangels Erfahrung mit O stehe ich da aber schon auf dem Schlauch.
Hallo WillWissen,
also, O beendet, das scheint so zu gehen, O wird augenscheinlich geschlossen. Wenn ich aber Neustart wähle, steht oben wieder "Warten auf O, O wird heruntergefahren" Ich kann dann nur auf "Neustart erzwingen" drücken, denn Herunterfahren is nich, dann wird aber schon normal beendet.
Die Frage ist halt, ist das normal? Was ich eigentlich so nicht glauben mag. Microsoft ist sonst m.W. schon exakter.
Grüße, Charly
Registriert seit: 12.04.2014
Version(en): Office 365
Hallo,
der Link in meinem Posting hilft dir nicht weiter?
Alternativ evtl. einfach mal eine Abfrage bei einer Suchmaschine mit 'kontakte von iphone auf outlook übertragen' starten.
Gruß
Peter
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallo Charly,
Dein Makro erzeugt eine zusätzliche Excel-Session. Wenn Du die vordergründige Anwendung schließt, bleibt die hintergründige noch offen, obwohl sie im Makro an der Stelle .Quit geschlossen werden sollte.
Versuche es mal am Ende mit
...
Set xlApp = Nothing
End Sub
Kann aber sein, dass das nichts bringt  .
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 19.07.2015
Version(en): 365/2016
Hallo Peter,
hatte ich übersehen, dass das ein Link war. Möchte aber ungern - auch noch - die engl. Version installieren, bin schon recht froh, dass die Synchronisation und Updates meiner vielen Apps läuft.
Und hallo André,
(ist der "Haken" über dem e jetzt richtig?)
das war eigentlich klar, ich will ja Adressen von iCloude/Kontakte in Outlook einbinden/importieren. Da wird noch einiges zu ändern/anzupassen sein. Die Grobstruktur könnte aber einigermaßen passen, oder hat wer was passenderes?
Grüße, Charly
|
