Thema Datum  Von Nutzer Rating
Antwort
22.05.2007 22:03:00 Spri
NotSolved
Blau Aw:Outlook Kontakte überprüfen
 31.05.2007 12:52:45 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Rasta		 Datum:
31.05.2007 12:52:45		 Views:
1582		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Outlook Kontakte überprüfen
Hallo spri,

hilft dir sowas weiter?

If Application.ActiveExplorer.Selection.Count > 0 Then
If Application.ActiveExplorer.Selection.Item(1).Class = olContact Then
Set olItem = Application.ActiveExplorer.Selection.Item(1)
txtAdressDaten.Text = olItem.FullName & vbCrLf
If olItem.CompanyName <> "" Then txtAdressDaten.Text = txtAdressDaten.Text & olItem.CompanyName & vbCrLf & vbCrLf
txtAdressDaten.Text = txtAdressDaten.Text & olItem.BusinessAddress & vbCrLf
If olItem.BusinessTelephoneNumber <> "" Then txtAdressDaten.Text = txtAdressDaten.Text & vbCrLf & "Tel: " & olItem.BusinessTelephoneNumber
If olItem.MobileTelephoneNumber <> "" Then txtAdressDaten.Text = txtAdressDaten.Text & vbCrLf & "Mobil: " & olItem.MobileTelephoneNumber
If olItem.BusinessFaxNumber <> "" Then txtAdressDaten.Text = txtAdressDaten.Text & vbCrLf & "Fax: " & olItem.BusinessFaxNumber

Else
MsgBox "Es wurde kein Kontakt ausgewählt. Bitte wählen Sie einen Kontakt aus.", , "Fehler..."
End
End If
Else
MsgBox "Es sind keine Kontakte vorhanden.", , "Fehler..."
End
End If


(gefunden bei www.wer-weiss-was.de)

viele grüße

rasta

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.05.2007 22:03:00 Spri
NotSolved
Blau Aw:Outlook Kontakte überprüfen
 31.05.2007 12:52:45 Rasta
NotSolved