eMail per VBA beantworten/weiterleiten

Moderator: ModerationP

eMail per VBA beantworten/weiterleiten

Beitragvon RTausD » 25. Jul 2021, 11:36

Hallo allerseits,

ich möchte einzelne eMails per VBA beantworten bzw. weiterleiten.

Leider scheitere ich schon daran, nicht alle eMails einer Selection oder alle eMails im Ordner zu bearbeiten.

Kann mir jemand sagen, wie ich am einfachsten die aktuell ausgewählte eMail beantworten bzw. weiterleiten kann?

VIELEN DANK im Voraus

Rolf
RTausD
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 280
Registriert: 24. Feb 2007, 10:51

Re: eMail per VBA beantworten/weiterleiten

Beitragvon Fennek » 01. Aug 2021, 16:03

Hallo,

hier ein Code, der alle Items eines Ordner durchgeht:

Code: Alles auswählen
Sub sb_Erkennen_zu_Test()
    Dim NSp As NameSpace
    Dim EML As MailItem
    Dim IBx As Folder, Itm As Items
    Dim LastRun As Date

Set NSp = Application.GetNamespace("MAPI")
Set IBx = NSp.Folders.Item("meine@Email.de")).Folders("Posteingang")

Set Itm = IBx.Items

For i = 1 to IBx.Items.Count

    If Itm(i).Class = olMail Then

        Debug.Print Itm(i).Subjec
       
    End If
Next i

Set IBx = Nothing
Set NSp = Nothing
End Sub


Für ausgewählete Mails sollte es so gehen:

Code: Alles auswählen
With ActiveExplorer.Selection
        For ii = 1 To .Count
            If .Item(ii).Class = olMail Then
                 debug.print .Item(ii).Subject
            End If
        Next ii
End With


mfg
Benutzeravatar
Fennek
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 824
Registriert: 12. Feb 2016, 18:56


Zurück zu Outlook Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste