Kontakte per VBA und die Geburtstagserinnerungen

21/06/2011 - 10:24 von Lupus Goebel | Report spam
Hallöschen,


da ich das von Access 2007 aus mache, aber sicherlich in der Outlook
Gruppe auch Wissende geben kann,
ein followup auf <news:de.comp.datenbanken.ms-access>

Mit dem Code erstelle ich neue Kontakte in Outlook 2007:
\\\
Function olKontaktneu()
Dim olApp As Outlook.Application
Dim olContact As ContactItem
Dim Ns As NameSpace
Dim myfolder As Outlook.MAPIFolder

Dim myItems As Items
Dim rs As Recordset

Set olApp = CreateObject("Outlook.Application")
Set Ns = olApp.GetNamespace("MAPI")
Set myfolder = Ns.GetDefaultFolder(olFolderContacts)


Set myItems = myfolder.Items
Set rs = CurrentDb.OpenRecordset("SELECT * From tblKontakte;")
Do While Not rs.EOF
Set olContact = myfolder.Items.Add(olContactItem)
With olContact
.Title = Nz(rs("Title"))
.FirstName = Nz(rs("FirstName"))
.LastName = Nz(rs("LastName"))
' usw.
.Birthday = Nz(rs("Birthday"))
.Body = Nz(rs("Body"))
.Categories = Nz(rs("Categories"))
.Save
rs.Edit
rs!EntryID = .EntryID
rs.Update
End With
rs.MoveNext
Loop
rs.Close

Set olApp = Nothing
Set Ns = Nothing
Set myfolder = Nothing
Set myItems = Nothing
Set rs = Nothing
End Function
///


Nun habe ich aber das Problem, das jeder Geburtstag automatisch in den
Kalender eingetragen wird. Das ist nicht gewünscht.

Wie kann ich das verhindern?

MfG - Lupus Goebel
Der Sumpf- Morasthobbybastler und Anfaenger mit
Wissensdurst (http://www.lupusdw.de http://foto.lupusdw.de)
Urlaub macht man in Irland: http://www.eaglesnest-bb.com/
 

Lesen sie die antworten

#1 Lupus Goebel
25/06/2011 - 21:08 | Warnen spam
Umpf ...

ich habe langsam das Gefühl, es làsst sich nicht verhindern?
Gibt es denn wenigstens so was wie eine ID bei der Termineintragung, die
zum Kontakt passt, dann könnte man die nach dem Eintragen sofort löschen?

nochmals Followup zu <news:de.comp.datenbanken.ms-access>

Am 21.06.2011 10:24 schrieb Lupus Goebel:


Mit dem Code erstelle ich neue Kontakte in Outlook 2007:



[Code hier gelöscht]

Nun habe ich aber das Problem, das jeder Geburtstag automatisch in den
Kalender eingetragen wird. Das ist nicht gewünscht.

Wie kann ich das verhindern?




MfG - Lupus Goebel
Der Sumpf- Morasthobbybastler und Anfaenger mit
Wissensdurst (http://www.lupusdw.de http://foto.lupusdw.de)
Urlaub macht man in Irland: http://www.eaglesnest-bb.com/

Ähnliche fragen