Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Importieren von Daten aus einer Access DB automatisieren
Autor: Prian0815
Datum: 13.01.05 14:41
Hi Olaf, hab da auch schon einiges mit gemacht, hier etliche tips: ’Variablendeklaration für Outlock – Zugriff ' Outlook als Objekt festlegen Public myOutlApp As Outlook.Application ' Namespaces für Den aktuellen Arbeitsbereich von Outlook Public myNameSpace As Outlook.NameSpace ' Der MAPI-Folder legt den Ordner fest (z. B. Kalender) Public mymapiFolder As mapiFolder ' ApointmentItems sind die einzelnen Einträge(bei Kalender) Public myappItem As AppointmentItem ' MailItems sind die einzelnen Mails(bei Postein- bzw. Ausgang) Public mymailItem As MailItem 'Hilfsvariablen für den ApointmentItem - Eintrag Dim IntervallTyp As String Dim Zahl As Integer Dim start As Date Dim AmPm As String Dim Zeit As Date Private Sub Outlook_Termin_erstellen() Outlook_Termin_erstellen: ' Outlook initialisieren Set myOutlApp = CreateObject("Outlook.Application") ' Namespace initialisieren Set myNameSpace = myOutlApp.GetNamespace("MAPI") ' Aktueller User in Outlook ermitteln AktUser = myNameSpace.CurrentUser ' Ordner setzen, in diesem Fall Calendar Set mymapiFolder = myNameSpace.GetDefaultFolder(olFolderCalendar) ' Items initialisieren Set myappItem = myOutlApp.CreateItem(olAppointmentItem) myappItem.subject = subject myappItem.start = datelit myappItem.ReminderMinutesBeforeStart = RMBS myappItem.ReminderSet = True ' Termin Speichern myappItem.Save ' alle Objekte abschließen Set myappItem = Nothing Set mymapiFolder = Nothing Set myNameSpace = Nothing Set myOutlApp = Nothing End Sub ############################################################## ‘ Mail versenden ' Outlock initialisieren Set myOutlApp = CreateObject("Outlook.Application") ' Namespace initialisieren Set myNameSpace = myOutlApp.GetNamespace("MAPI") ' Aktueller User in Outlook ermitteln AktUser = myNameSpace.CurrentUser ' Ordner setzen, in diesem Fall Posteingang Set mymapiFolder = myNameSpace.GetDefaultFolder(olFolderInbox) ' Items initialisieren Set mymailItem = myOutlApp.CreateItem(olMailItem) Set myAttachments = mymailItem.Attachments myAttachments.Add filename mymailItem.subject = Firma 'Neue Nachricht speichern mymailItem.Save 'Nachricht anzeigen mymailItem.Display ' alle Objekte abschließen Screen.MousePointer = 1’ Mauszeiger auf Normal(Pfeil) stellen Set mymailItem = Nothing Set mymapiFolder = Nothing Set myNameSpace = Nothing Set myOutlApp = Nothing ################################################################ Adressbucheinträge erstellen! ' Ordner setzen, in diesem Fall Kontakte Set mymapiFolder = myNameSpace.GetDefaultFolder(olFolderContacts) Private Sub Outlook_Kontakt_erstellen() 'Outlook initialisieren Set myOutlApp = CreateObject("Outlook.Application") ' Items initialisieren Set myconItem = myOutlApp.CreateItem(olContactItem) myconItem.FirstName = rs!Vorname myconItem.LastName = rs!Nachname If rs!MW = "M" Then myconItem.Gender = olMale myconItem.Title = "Herr" Else myconItem.Gender = olFemale myconItem.Title = "Frau" End If myconItem.BusinessAddressStreet = rs!Adresse myconItem.BusinessAddressCity = rs!Ort myconItem.BusinessAddressState = rs!Bundesland myconItem.BusinessAddressCountry = "Deutschland" myconItem.BusinessAddressPostalCode = rs!Postleitzahl myconItem.CompanyName = rs!Firma1 If Not IsNull(rs!Titel) Then End If myconItem.CompanyMainTelephoneNumber = rs!TelefonBeruflich If Not IsNull(rs!Durchwahl) Then myconItem.BusinessTelephoneNumber = rs!TelefonBeruflich & " - " & rs!Durchwahl Else myconItem.BusinessTelephoneNumber = rs!TelefonBeruflich End If If Not IsNull(rs!Faxnummer) Then myconItem.BusinessFaxNumber = rs!Faxnummer End If If Not IsNull(rs!EmailName) Then myconItem.Email1Address = rs!EmailName End If If Not IsNull(rs!Internet) Then myconItem.BusinessHomePage = rs!Internet End If If Not IsNull(rs!Funktion) Then myconItem.JobTitle = rs!Funktion End If ' Kontakt Speichern myconItem.Save ' alle Objekte abschließen Set myconItem = Nothing Set mymapiFolder = Nothing Set myNameSpace = Nothing Set myOutlApp = Nothing End Sub Mit dieser Menge an Indfos solltest du jetzt bestens bedient sein. Gruß Armin P.S.: always look on the bright side of Life!

Importieren von Daten aus einer Access DB automatisieren	1.423	OlafVBA	11.01.05 17:02
Re: Importieren von Daten aus einer Access DB automatisieren	907	Zero-G.	11.01.05 17:53
Re: Importieren von Daten aus einer Access DB automatisieren	984	Prian0815	13.01.05 14:41
Re: Importieren von Daten aus einer Access DB automatisieren	826	OlafVBA	17.01.05 09:07

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen