Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Access Datensatz in Outlook übergeben und bestätigen
zurück: Pivot Tabelle Seitenfilter über VBA Steuern weiter: Problem mit Parameterwert eingeben! Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
adamth
Im Profil kannst Du frei den Rang ändern


Verfasst am:
02. Sep 2009, 14:13
Rufname:

Access Datensatz in Outlook übergeben und bestätigen - Access Datensatz in Outlook übergeben und bestätigen

Nach oben
       Version: Office 2003

Hallo ich habe folgenden Code um einen Datensatz aus Access in Outllook zu übergeben.
Klappt auch wunderbar, nur wie kann ich danach noch eine Meldung generieren.
Zitat:
Datensatz erfolgreich in Outlook übergeben
Folgende Code habe ich eingebaut:
Code:
    Dim objOutlook As Object 'OutLook.Application
    Dim nspOutlook As Object 'OutLook.NameSpace
    Dim fldOutlook As Object 'OutLook.MAPIFolder
   
    Set objOutlook = CreateObject("Outlook.Application")
    Set nspOutlook = objOutlook.GetNamespace("MAPI")
    Set fldOutlook = nspOutlook.GetDefaultFolder(10)
    ' Suchstring aus Nach- und Vorname basteln
    suchname = Me!Name & ", " & Me!Vorname
    ' gibts dazu schon einen kontakt?
    Set conOutlook = fldOutlook.Items.Find("[FileAs]='" & suchname & "'")
    If conOutlook Is Nothing Then
        ' Wenn nicht...
        Set conOutlook = fldOutlook.Items.Add(2)
      Else
        ' wenn doch...überschreiben oder nicht???????
        If MsgBox("Es existiert ein Eintrag für" & Chr$(13) & _
                  conOutlook.CompanyAndFullName & "." & Chr$(13) & _
                  "Soll dieser überschrieben werden?", vbYesNo) = vbNo Then
        ' dann nicht...
        GoTo Exit_Export_Click
        End If
    End If
    ' Daten übertragen
    'Hier müssen noch die Feldnamen zugeordnet werden.
    conOutlook.CompanyName = Nz(Me!Firma)
    conOutlook.BusinessAddressStreet = Nz(Me![Straße])
    conOutlook.BusinessAddressPostalCode = Nz(Me!PLZ)
    conOutlook.BusinessAddressCity = Nz(Me!Ort)
    conOutlook.BusinessTelephoneNumber = Nz(Me!Tel)
    conOutlook.BusinessFaxNumber = Nz(Me!Fax)
    conOutlook.Email1Address = Nz(Me!email)
    conOutlook.LastName = Nz(Me![Name])
    conOutlook.FirstName = Nz(Me!Vorname)
    'conOutlook.TITLE = Nz(!Anrede)
    'Select Case Left(Nz(!Anrede), 1)
    '  Case "H":  conOutlook.Gender = 2
    '  Case "F":  conOutlook.Gender = 1
    '  Case Else: conOutlook.Gender = 0
    'End Select
    conOutlook.Save
    ' Objekte freimachen
    'fldOutlook.Application.Quit
    'Set fldOutlook = Nothing
Exit_Export_Click:
    Exit Sub
Err_Export_Click:
    MsgBox Err.Description
    Resume Exit_Export_Click

Danke T.
ebs17
Learning by Doing - Bastler


Verfasst am:
04. Sep 2009, 01:37
Rufname:
Wohnort: Reinsberg


AW: Access Datensatz in Ooutlook übergeben und bestätigen - AW: Access Datensatz in Ooutlook übergeben und bestätigen

Nach oben
       Version: Office 2003

Eigene Meldung => MsgBox?
_________________
Mit freundlichem Glück Auf!

Eberhard
adamth
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Apr 2010, 09:59
Rufname:

AW: Access Datensatz in Outlook übergeben und bestätigen - AW: Access Datensatz in Outlook übergeben und bestätigen

Nach oben
       Version: Office 2003

adamth am 07. Sep 2009 um 10:37 hat folgendes geschrieben:
danke kannst du mir bitte genauer sagen wie und wo ich die intragen muss
außerdem müßte ich noch die handynummer nach outlook exportieren wie geht das ?
danke
t.

adamth am 20. Nov 2009 um 18:47 hat folgendes geschrieben:
Hallo ich habe folgendes in einen button eingebaut:
Funktionierte einwandfrei.
kann mir jemand den code ergänzen, damit ich die folgenden Felder in outlook übergeben kann ???

Acces_Feld "Mobil" - soll in feld Mobil bei Outlook
Acces_Feld "website" - soll in feld website bei Outlook
Acces_Feld "bemerkung" - soll in das große bemerkungsfeld bei Outlook

besten dank vorab ! ! !
Code:
Private Sub Befehl192_Click()
    Dim objOutlook As Object 'OutLook.Application
    Dim nspOutlook As Object 'OutLook.NameSpace
    Dim fldOutlook As Object 'OutLook.MAPIFolder
   
    Set objOutlook = CreateObject("Outlook.Application")
    Set nspOutlook = objOutlook.GetNamespace("MAPI")
    Set fldOutlook = nspOutlook.GetDefaultFolder(10)
    ' Suchstring aus Nach- und Vorname basteln
    suchname = Me!Name & ", " & Me!Vorname
    ' gibts dazu schon einen kontakt?
    Set conOutlook = fldOutlook.Items.Find("[FileAs]='" & suchname & "'")
    If conOutlook Is Nothing Then
        ' Wenn nicht...
        Set conOutlook = fldOutlook.Items.Add(2)
      Else
        ' wenn doch...überschreiben oder nicht???????
        If MsgBox("Es existiert ein Eintrag für" & Chr$(13) _
                & conOutlook.CompanyAndFullName & "." _
                & Chr$(13) & "Soll dieser überschrieben werden?" _
                , vbYesNo) = vbNo Then
            ' dann nicht...
            GoTo Exit_Export_Click
        End If
    End If
    ' Daten übertragen
    'Hier müssen noch die Feldnamen zugeordnet werden.
    conOutlook.CompanyName = Nz(Me![Firma])
    conOutlook.BusinessAddressStreet = Nz(Me![Straße])
    conOutlook.BusinessAddressPostalCode = Nz(Me![PLZ])
    conOutlook.BusinessAddressCity = Nz(Me![Ort])
    conOutlook.BusinessTelephoneNumber = Nz(Me![Tel])
    conOutlook.BusinessFaxNumber = Nz(Me![Fax])
    conOutlook.Email1Address = Nz(Me![email])
    conOutlook.LastName = Nz(Me![Name])
    conOutlook.FirstName = Nz(Me![Vorname])
    'conOutlook.TITLE = Nz(![Anrede])
    'Select Case Left(Nz(![Anrede]), 1)
    '  Case "H"
    '    conOutlook.Gender = 2
    '  Case "F"
    '    conOutlook.Gender = 1
    '  Case Else
    '    conOutlook.Gender = 0
    'End Select
    conOutlook.Save
    ' Objekte freimachen
    'fldOutlook.Application.Quit
    'Set fldOutlook = Nothing
Exit_Export_Click:
    Exit Sub

adamth am 18. März 2010 um 15:29 hat folgendes geschrieben:
Habe folgenden Code hinter einen Button gelegt. ging wunderbar mit windows XP
jetzt habe ich windows 7 installiert und es geht nicht mehr was muss ich ändern ????
und wie kann ich das Feld "handy" aus Access in outlook eintragen ??
Code:
Private Sub Befehl192_Click()
    Dim objOutlook As Object 'OutLook.Application
    Dim nspOutlook As Object 'OutLook.NameSpace
    Dim fldOutlook As Object 'OutLook.MAPIFolder
   
    Set objOutlook = CreateObject("Outlook.Application")
    Set nspOutlook = objOutlook.GetNamespace("MAPI")
    Set fldOutlook = nspOutlook.GetDefaultFolder(10)
    ' Suchstring aus Nach- und Vorname basteln
    suchname = Me!Name & ", " & Me!Vorname
    ' gibts dazu schon einen kontakt?
    Set conOutlook = fldOutlook.Items.Find("[FileAs]='" & suchname & "'")
    If conOutlook Is Nothing Then
        ' Wenn nicht...
        Set conOutlook = fldOutlook.Items.Add(2)
      Else
        ' wenn doch...überschreiben oder nicht???????
        If MsgBox("Es existiert ein Eintrag für" & Chr$(13) _
                & conOutlook.CompanyAndFullName & "." & Chr$(13) _
                & "Soll dieser überschrieben werden?", vbYesNo) = vbNo Then
            ' dann nicht...
            GoTo Exit_Export_Click
        End If
    End If
    ' Daten übertragen
    'Hier müssen noch die Feldnamen zugeordnet werden.
    conOutlook.CompanyName = Nz(Me![Firma])
    conOutlook.BusinessAddressStreet = Nz(Me![Straße])
    conOutlook.BusinessAddressPostalCode = Nz(Me![PLZ])
    conOutlook.BusinessAddressCity = Nz(Me![Ort])
    conOutlook.BusinessTelephoneNumber = Nz(Me![Tel])
    conOutlook.BusinessFaxNumber = Nz(Me![Fax])
    conOutlook.Email1Address = Nz(Me![email])
    conOutlook.LastName = Nz(Me![Name])
    conOutlook.FirstName = Nz(Me![Vorname])
    'conOutlook.TITLE = Nz(![Anrede])
    'Select Case Left(Nz(![Anrede]), 1)
    '  Case "H"
    '    conOutlook.Gender = 2
    '  Case "F"
    '    conOutlook.Gender = 1
    '  Case Else
    '    conOutlook.Gender = 0
    'End Select
    conOutlook.Save
    ' Objekte freimachen
    'fldOutlook.Application.Quit
    'Set fldOutlook = Nothing
Exit_Export_Click:
    Exit Sub
Err_Export_Click:
    MsgBox Err.Description
    Resume Exit_Export_Click
End Sub

hallo,
der code funktioniert aber nur bei windows XP
habe jetzt windows 7 installiert und wenn ich auf den bestehenden button klicke, passiert garnix.

was muss ich denn für die übergabe aus access in outlook unter windows 7 ändern ?
office ist 2003
adamth
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Jul 2010, 09:42
Rufname:


AW: Access Datensatz in Outlook übergeben und bestätigen - AW: Access Datensatz in Outlook übergeben und bestätigen

Nach oben
       Version: Office 2003

hallo wie heißt denn die bezeichnung für die Mobilfunknummer in outlook ????

Würde die Mobildunknunmer gern an outlook übergeben aber kenne die benennung nicht
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: unlöschbaren Datensatz erstellen 1 Vincent_Vega 899 15. Aug 2005, 21:45
stpimi unlöschbaren Datensatz erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Reduzierung mehrerer Datensätze auf einen Datensatz 2 Pulldown 819 03. Jun 2005, 09:32
Pulldown Reduzierung mehrerer Datensätze auf einen Datensatz
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage über Formular einen Wert übergeben. 4 magnum 1280 29. Mai 2005, 14:55
jens05 Abfrage über Formular einen Wert übergeben.
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz automatisch kopieren??? 0 Edelschnitt 701 11. Mai 2005, 19:41
Edelschnitt Datensatz automatisch kopieren???
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen im Formular aufrufen, automatisch bestätigen 3 Calvin22 1606 12. Apr 2005, 12:12
Willi Wipp Abfragen im Formular aufrufen, automatisch bestätigen
Keine neuen Beiträge Access Tabellen & Abfragen: Hintergrundfarbe in Datensatz 1 Rheinbote 900 24. Feb 2005, 20:18
stpimi Hintergrundfarbe in Datensatz
Keine neuen Beiträge Access Tabellen & Abfragen: Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info 2 Steve 914 14. Jan 2005, 00:43
Steve Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info
Keine neuen Beiträge Access Tabellen & Abfragen: Bestelldaten in 2. Tabelle übergeben 4 nukeli 598 20. Dez 2004, 14:04
nukeli Bestelldaten in 2. Tabelle übergeben
Keine neuen Beiträge Access Tabellen & Abfragen: Access Adressdatenbank und Adreßbuch Import Outlook ?? 1 christine10000 1686 12. Dez 2004, 11:32
Heathen Access Adressdatenbank und Adreßbuch Import Outlook ??
Keine neuen Beiträge Access Tabellen & Abfragen: Bei der Aktualisierung eines Tabellenwertes neuen Datensatz 6 zheng 810 07. Dez 2004, 22:35
zheng Bei der Aktualisierung eines Tabellenwertes neuen Datensatz
Keine neuen Beiträge Access Tabellen & Abfragen: Aktionsabfrage in Formular -immer nur einen Datensatz ändern 6 blauvogel 1092 08. Okt 2004, 11:43
Skogafoss Aktionsabfrage in Formular -immer nur einen Datensatz ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz nach Datum suchen?? 1 Hansen 1390 04. Okt 2004, 12:16
stpimi Datensatz nach Datum suchen??
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editoren Forum