Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Scriptlösung für Outlook 2007

Frage Microsoft Outlook & Mail

Mitglied: edvjojo

edvjojo (Level 1) - Jetzt verbinden

21.05.2009, aktualisiert 09:01 Uhr, 3556 Aufrufe, 2 Kommentare

Hallo zusammen

meine erste Frage an die VB-Spezis hier

In Outlook 2007 soll eine Aktion/Script verwendet werden, das bei verkauften Ebay-Auktionen den Mailempfänger rausliest

Mail wird immer mit "Herzlichen Glückwunsch, Ihr Artikel wurde verkauft" rausgesucht
Die Mail-Adresse steht immer vor dem String "[ Kontakt mit Käufer aufnehmen]"
und den Käufern eine immer gleiche PDF-Datei im Anhang zumailt.

Kann man das in VB oder so hinbekommen?

Danke für eure Tipps
jojo
Mitglied: colinardo
21.05.2009 um 11:25 Uhr
Hallo jojo,

geht kein Problem solange eBay nicht Ihre Mails anders formatiert, dann sind wieder Anpassungen nötig.
Wenn du die Mails HTML-formatiert bekommst dann funktioniert unten stehendes Script, welches du im Outlook VBA Editor im Modul "ThisOutlookSession" einfügst.
Da der Mailbody ja HTML ist sucht das script nach dem ersten "mailto:" im Body.
Wenn du nun eine solche Mail im Posteingang hast , dann findet es diese, extrahiert die eMail und erstellt eine neue mit dieser als Empfänger. Das ganze sollte natürlich erweitert werden damit nach extrahieren und verschicken der Mail dieselbige in einen anderen Ordner verschoben wird damit bei einem erneuten durchlauf des Scripts der Empfänger nicht gleich noch eine Mail erhält.
Wenn du damit nicht zurecht kommen solltest kann ich dir eine individuelle Abfolge erstellen...

Das ganze kann man auch an das NewMail-Ereignis von Outlook hängen, so daß es jedes mal beim eintreffen neuer Nachrichten ausgeführt wird.

den Code zum Anhängen eines PDF's habe ich auch schon eingefügt aber noch auskommentiert damit du den Pfad zum PDF noch anpassen kannst und das Script beim Testen nicht hängenbleibt.

01.
Sub ebayScript() 
02.
    Dim mail As Outlook.MailItem 
03.
    Dim inbox As Outlook.Folder 
04.
    str_subject_search = "Herzlichen Glückwunsch, Ihr Artikel" 
05.
    str_body_search = "mailto:" 
06.
    Set inbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 
07.
    For Each mail In inbox.Items 
08.
        If mail.Class = olMail Then 
09.
            If Left(mail.Subject, Len(str_subject_search)) = str_subject_search Then 
10.
                mailbody = CStr(mail.Body) 
11.
                pos_start = InStr(1, mailbody, str_body_search, vbTextCompare) + 7 
12.
                pos_mail_end = InStr(pos_start, mailbody, Chr(34), vbTextCompare) 
13.
                string_mail = Trim(Mid(mailbody, pos_start, pos_mail_end - pos_start)) 
14.
                Dim newmail As MailItem 
15.
                Set newmail = Application.CreateItem(olMailItem) 
16.
                With newmail 
17.
                    .Subject = "Antwort auf Kauf" 
18.
                    .To = string_mail 
19.
                    .Display 
20.
                    'Set Attachments = .Attachments 
21.
                    'Attachments.Add ("c:\beispiel.pdf") 
22.
                    .Display 
23.
                End With 
24.
            End If 
25.
        End If 
26.
    Next 
27.
End Sub
Bei Fragen stehe ich gerne Rede und Antwort

Grüße Uwe
Bitte warten ..
Mitglied: edvjojo
21.05.2009 um 12:25 Uhr
Besten Dank. Uwe

werde ich gleich mal ausprobieren.

Ist ja extrem schenll hier.
Nochmals DANKE

Jojo
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
Probleme mit outlook 2007 und icloud (4)

Frage von jensgebken zum Thema Outlook & Mail ...

Outlook & Mail
gelöst Outlook 2007 Kennwortabfrage (4)

Frage von hesper zum Thema Outlook & Mail ...

Microsoft Office
gelöst Outlook 2007 kann kein Kennwort speichern ausgegraut (4)

Frage von Akcent zum Thema Microsoft Office ...

Outlook & Mail
gelöst Outlook 2007 akzeptiert neues Zertifikat nicht (6)

Frage von honeybee zum Thema Outlook & Mail ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Server
Bilder aus dem Web mit CSV runterladen (30)

Frage von Yannosch zum Thema Server ...

Server-Hardware
Bestehendes Raid erweitern um 4 gleiche Platten! (Verständnis Fragen) (12)

Frage von Hendrik2586 zum Thema Server-Hardware ...

Windows Update
WSUS 4 (Server 2012 R2) - Windows 10 Updates nicht möglich (12)

Frage von c0d3.r3d zum Thema Windows Update ...