VBA Outlook 2000: Frage zu \“Cc\“, \“Bcc\“, Verteilerlisten, Wichtigkeiten usw.

Hallo,

ich habe Teile meines Ol-Projektes kopiert und wollte Euch mal Folgendes fragen:

1) Betrifft Code 1 (siehe unten). Wie müsste ich den Code schreiben, damit auch Einträge in den entsprechenden ComboBoxen
für Cc, Bcc und Wichtigkeit übernommen werden. (Bisher wird nur die Mail ohne Cc bzw. Bcc versendet).
In Bezug auf die Wichtigkeit wird bei meinem jetzigen Code beim Versand folgende Fehlermeldung angezeigt: Laufzeitfehler 13: Typen unverträglich

2) Betrifft Code 1 (siehe unten). Wie kann ich die Prozedur EmailSenden schreiben, damit Mails nicht nur an
gewöhnliche E-mail-Empfänger mit gültiger E-Mail-Adresse, sondern auch an Empfänger in der Verteilerliste versandt werden können.
(habe herausgefunden, dass die Eigenschaft Class dazu dient, bekomme aber bei meiner Schreibweise den Hinweis, dass die Eigenschaft
schreibgeschützt ist). Was also tun?

3) Betrifft Code 2 (siehe unten): Wie lässt sich beim Auslesen einer E-Mail im Posteingang (Antwort) die konkrete E-Mail-Adresse auslesen?
Finde keine Eigenschaft hierfür.
Bisher habe ich folgende Darstellung:
—–Ursprüngliche Nachricht—–
Von: Julia Mustermann
Gesendet: 25.04.04 21:45:40
An: Ol2000
Betreff: Re: Einladung

Möchte aber folgende Darstellung:
—–Ursprüngliche Nachricht—–
Von: Julia Mustermann [mailto:julia.mustermann@t-online.de]
Gesendet: 25.04.04 21:45:40
An: Ol2000
Betreff: Re: Einladung

Code 1:

Private Sub Form_Load()
Me.cmbPrijoritaet.AddItem \“Niedrig\“
Me.cmbPrijoritaet.AddItem \“Normal\“
Me.cmbPrijoritaet.AddItem \“Hoch\“
Me.cmbPrijoritaet.Text = Me.cmbPrijoritaet.List(1)
End Sub

Private Sub cmdSenden_Click()
Dim p As Byte
Dim sPrijoritaet As String
Dim sPrij As String
For p = 0 To 2
sPrijoritaet = Me.cmbPrijoritaet.List(p)
Next p
If sPrijoritaet = \“Niedrig\“ Then
sPrij = \“olImportanceLow\“
ElseIf sPrijoritaet = \“Normal\“ Then
sPrij = \“olImportanceNormal\“
ElseIf sPrijoritaet = \“Hoch\“ Then
sPrij = \“olImportanceHigh\“
End If

Dim iAN As Integer, iCC As Integer, iBCC As Integer
For iAN = 0 To cmbAN.ListCount – 1
EmailSenden Me.cmbAN.List(iAN), Me.cmbCC, Me.cmbBCC, Me.txtBetreff, Me.rtNachricht, Me.rtAktuelles, Me.txtLogo, Me.txtNews, Me.txtAnlage, sPrij
Next iAN
MsgBox \“E-Mail(s) wurde(n) erfolgreich versandt\“, vbInformation
Unload Me
End Sub

Private Sub EmailSenden(sAn As String, Optional sCC As String, Optional sBCC As String, Optional sBetreff As String, Optional sNachricht As String, Optional sAktuelles As String, Optional sLogo As String, Optional sNews As String, Optional sDateiAnhang As String, sPr As String)
Dim NachrichtOL As Outlook.MailItem
Set AppOL = GetObject(, \“Outlook.Application\“)
Set NameSpaceOL = AppOL.GetNamespace(\“MAPI\“)
Set NachrichtOL = AppOL.CreateItem(olMailItem)
With NachrichtOL
.Recipients.Add sAn
.CC = sCC
.BCC = sBCC
.Subject = sBetreff
.Class = olAddressEntries
.Importance = sPr
.Send
End With
End Sub

Code 2: (Ausschnitt)

For Each Element In ActiveExplorer.Selection
If TypeOf Element Is MailItem Then
Set Email = Element
Else
Exit For
End If
Next
\’Infos vom Kopf der E-Mail auslesen
Me.Caption = Email.Subject & \“ Antwortformular: Beispiel GmbH, Beispielstadt\“
sAWBetreff = \“Re: \“ & Email.Subject
txtBetreff = sAWBetreff
sAWEmpfaenger = Email.SenderName
cmbAN = sAWEmpfaenger

sInfo = \“—–Ursprüngliche Nachricht—–\“ & vbCrLf
sInfo = sInfo & \“Von: \“ & Email.SenderName & vbCrLf
sInfo = sInfo & \“Gesendet: \“ & Email.ReceivedTime & vbCrLf
sInfo = sInfo & \“Re: \“ & Email.To & vbCrLf
sInfo = sInfo & \“Betreff: \“ & Email.Subject & vbCrLf & vbCrLf
sInfo = sInfo & Email.Body
rtNachricht = sDateiinhaltNAntw & vbCrLf & sInfo

Für Eure Bemühungen/Tipps bedanke ich mich im Voraus.

mfg
BenC