eMail per VBA beantworten/weiterleiten

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: eMail per VBA beantworten/weiterleiten

Re: eMail per VBA beantworten/weiterleiten

Beitrag von 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

eMail per VBA beantworten/weiterleiten

Beitrag von 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

Nach oben

cron