Hallo zusammen!
Habe da mal eine Frage, und zwar habe ich hier eine VB Quelle...
Delphi-Quellcode:
.
Dim oRecipients As DvApi32.Addresses
Dim oRecipient As DvApi32.Address
.
.
.
If Not oItem.Recipients.Count = 0 Then
Set oRecipients = oItem.Recipients
For Each oRecipient In oRecipients
strTo = strTo & "To: " & oRecipient.EMail & ";" & CrLf
Next
End If
.
.
.
Soweit konnte ich das übersetzen...
Delphi-Quellcode:
var
oRecipients: Addresses;
oRecipient: Address;
begin
{...}
if oMailItem.Recipients.Count > 0 then begin
oRecipients := oMailItem.Recipients;
// Ab hier hänge ich
for oRecipient in oRecipients do
begin
// irgendwas tun
Next;
end;
end;
{...}
Leider funktioniert das ganze aber nicht. For-Each gibt es ja in Delphi nicht.
Bekomme immer diese Meldung
Zitat:
[DCC Fehler] MyUnit.pas(487): E2431 for-in-Anweisung arbeitet nicht mit Kollektionstyp 'Addresses', weil 'Addresses' kein Element für 'GetEnumerator' enthält oder darauf nicht zugegirffen werden kann
[DCC Fehler] MyUnit.pas(490): E2003 Undefinierter Bezeichner: 'Next'
Kann mir da mal jemand helfen?
Das wäre wirklich super von euch!
Danke,
Peter