Tweet
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Neue Seite 2</title>
</head>
<body>
<p>So, weil ich es in C++ nicht hinkriege, versuche ich es mal mit VBA unter
Outlook 2000. Ich hab es auf Anhieb geschafft, mir ein kleines Formular mit
einem Button zu Basteln :-). In der Hilfe hab ich dann zwei schöne Beispiele
gefunden die ich sofort ausprobieren wollte. Aber da hat "Er" mir
einen Strich durch die Rechnung gemacht :-(. Im ersten Beispiel meckert
"er" in der Zeile Set MyAddrList an: "Ein Objekt wurde nicht
gefunden". Im zweiten Beispiel sagt er direkt in der ersten Zeile:
"Ein Objekt ist erforderlich". Wenn mir keiner helfen kann steig ich
bald auf Delphi um ;-)</p>
<pre>Private Sub CommandButton1_Click()
Set myOlApp = CreateObject("Outlook.Application"
Set myNamespace = myOlApp.GetNamespace("MAPI"
Set myAddrList = myNamespace.AddressLists("Personal Address Book"
Set myAddrEntries = myAddrList.AddressEntries
Set myEntry = myAddrEntries.Add("Microsoft Mail Address"
myEntry.Name = "John Q. Public"
On Error GoTo DialogBox
myEntry.Address = "[email protected]"
myEntry.Update
DialogBox:
myEntry.Details
End Sub
</pre>
<pre>Private Sub CommandButton1_Click()
myName = Item.To
Set myNamespace = Application.GetNamespace("MAPI"
Set myGAddressList = myNamespace.AddressLists("Global Address List"
Set myGEntries = myGAddressList.AddressEntries
Set myGentry = myGEntries(myName)
myManager = myGentry.Manager
Set myGentry2 = myGEntries(myManager)
Set myPAddressList = myNamespace.AddressLists("Personal Address Book"
Set myPEntries = myPAddressList.AddressEntries
'Add a new AddressEntry object to the personal
'address collection with the name, address, and
'manager of the name in your To field.
Set myPEntry = myPEntries.Add("Microsoft Mail Address", myName)
myPEntry.Address = myGentry.Address
myPEntry.Manager = myGentry.Manager
'Update to persist the collection.
myPEntry.Update
'Now add the manager's info. to
'the Personal address collection.
Set myPEntry2 = myPEntries.Add("Microsoft Mail Address", myManager)
myPEntry2.Address = myGentry2.Address
myPEntry2.Manager = myGentry2.Manager
myPEntry2.Update
End Sub
</pre>
</body>
</html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Neue Seite 2</title>
</head>
<body>
<p>So, weil ich es in C++ nicht hinkriege, versuche ich es mal mit VBA unter
Outlook 2000. Ich hab es auf Anhieb geschafft, mir ein kleines Formular mit
einem Button zu Basteln :-). In der Hilfe hab ich dann zwei schöne Beispiele
gefunden die ich sofort ausprobieren wollte. Aber da hat "Er" mir
einen Strich durch die Rechnung gemacht :-(. Im ersten Beispiel meckert
"er" in der Zeile Set MyAddrList an: "Ein Objekt wurde nicht
gefunden". Im zweiten Beispiel sagt er direkt in der ersten Zeile:
"Ein Objekt ist erforderlich". Wenn mir keiner helfen kann steig ich
bald auf Delphi um ;-)</p>
<pre>Private Sub CommandButton1_Click()
Set myOlApp = CreateObject("Outlook.Application"
Set myNamespace = myOlApp.GetNamespace("MAPI"
Set myAddrList = myNamespace.AddressLists("Personal Address Book"
Set myAddrEntries = myAddrList.AddressEntries
Set myEntry = myAddrEntries.Add("Microsoft Mail Address"
myEntry.Name = "John Q. Public"
On Error GoTo DialogBox
myEntry.Address = "[email protected]"
myEntry.Update
DialogBox:
myEntry.Details
End Sub
</pre>
<pre>Private Sub CommandButton1_Click()
myName = Item.To
Set myNamespace = Application.GetNamespace("MAPI"
Set myGAddressList = myNamespace.AddressLists("Global Address List"
Set myGEntries = myGAddressList.AddressEntries
Set myGentry = myGEntries(myName)
myManager = myGentry.Manager
Set myGentry2 = myGEntries(myManager)
Set myPAddressList = myNamespace.AddressLists("Personal Address Book"
Set myPEntries = myPAddressList.AddressEntries
'Add a new AddressEntry object to the personal
'address collection with the name, address, and
'manager of the name in your To field.
Set myPEntry = myPEntries.Add("Microsoft Mail Address", myName)
myPEntry.Address = myGentry.Address
myPEntry.Manager = myGentry.Manager
'Update to persist the collection.
myPEntry.Update
'Now add the manager's info. to
'the Personal address collection.
Set myPEntry2 = myPEntries.Add("Microsoft Mail Address", myManager)
myPEntry2.Address = myGentry2.Address
myPEntry2.Manager = myGentry2.Manager
myPEntry2.Update
End Sub
</pre>
</body>
</html>
Comment