Top-Themen

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

Mitglied: edvjojo

edvjojo (Level 1) - Jetzt verbinden

21.05.2009, aktualisiert 09:01 Uhr, 3573 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

Outlook 2007 - 2013 - Synchronisationsprotokoll

Frage von skahle85Outlook & Mail

Hey Leude, ich denke das Thema ist schon öfter aufgekommen. Workarounds wie per registry die Fehler zu unterdrücken nerven ...

Outlook & Mail

Outlook 2007 wiederherstellen, OHNE BACKUP!

Frage von EdPi76Outlook & Mail5 Kommentare

Hallo Ihr Lieben, ich installiere gerade den Rechner einer Freundin. Nach einigen Bluescreens hat sie mich um diesen Gefallen ...

Outlook & Mail

Outlook 2007 sms versenden

gelöst Frage von Jabberwocky86Outlook & Mail8 Kommentare

Hallo Zusammen Ich habe ein kleines Problem beim Versenden von SMS über Outlook 2007. Die Funktion selber habe ich ...

Outlook & Mail

Probleme mit outlook 2007 und icloud

Frage von jensgebkenOutlook & Mail4 Kommentare

Hallo Gemeinschaft, habe folgende Situation Windows 10 Office 2007 icloud f windows seit kurzer zeit ist der icloud kalender ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 1 TagHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 2 TagenRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 2 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 2 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Linux Netzwerk
Raspberry Pi 3: WLAN Power save deaktivieren
Frage von nordie92Linux Netzwerk14 Kommentare

Moin moin, mein Raspberry Pi 3 Model B benötigt eine dauerhaft aktive WLAN-Verbindung. Leider bricht die WLAN-Verbindung nach einigen ...

Netzwerkmanagement
Netzwerkmanagment im Haus mit Switch, Panel und pfsense
gelöst Frage von CorraggiounoNetzwerkmanagement13 Kommentare

hi zusammen, wir sind gerade dabei das ganze Haus bzw. die einzelnen Zimmer mit netzwerkdosen zu versorgen. Vom Keller ...

Vmware
Server 2008 r2 vmware terminalserver
Frage von MasterCVmware12 Kommentare

Guten Abend zusammen, ich hoffe , dass einer von euch mir weiterhelfen kann ,bei meinem kack Problem ! Ist ...

Google Android
Empfehlung: Android Ortungsapp
gelöst Frage von certifiedit.netGoogle Android11 Kommentare

Guten Morgen, grundsätzlich vorweg, ich wollte mich eben schlau machen, bzgl einer Ortungsapp, welche Androidbasiert einem anderen Androidsmartphone mitteilt, ...