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

CDO Message Fields erweitern. X-MSMail-Priority X-Priority Important sowie Übermittlungsbestätigung keine Funktion

Frage Microsoft Microsoft Office

Mitglied: thomas1972

thomas1972 (Level 1) - Jetzt verbinden

16.01.2015, aktualisiert 14:08 Uhr, 1525 Aufrufe, 1 Kommentar

Hallo ,

ich versuche auf die Maileigenschaften Einfluss zu nehmen,

leider funktioniert dieses leider nicht,
die Mail kommt immer nur mit Standarteinstellungen an.
Kann mir jemand erklären was ich falsch eingestellt habe

01.
 
02.
Sub CDO_config() 
03.
   '==This section provides the configuration information for the remote SMTP server. 
04.
   sendusing = 2           '==Normally you will only change the server name or IP. 
05.
   smtpserver = "xx.xx.xx.xx" '  
06.
   smtpserverport = 25                            'Server port (typically 25) 
07.
   '==End remote SMTP server configuration section== 
08.
 
09.
   Sender = "xxxxx@xxxx"             ' Absender E-mail adresse 
10.
   SenderName = """xxxxxxxx" ' Absender Name" 
11.
End Sub 
12.
 
13.
    
14.
Set objMessage = CreateObject("CDO.Message") 
15.
 
16.
Call CDO_config 
17.
 
18.
  With objMessage.Configuration.Fields 
19.
    '==This section provides the configuration information for the remote SMTP server. 
20.
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = sendusing           '==Normally you will only change the server name or IP. 
21.
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver         'Name or IP of Remote SMTP Server 
22.
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpserverport 'Server port (typically 25) 
23.
    .Update 
24.
    '==End remote SMTP server configuration section== 
25.
  End With 
26.
    
27.
      ' ###################### Mail Senden  ###################### 
28.
     
29.
    With objMessage 
30.
        .Subject = EMailbetreff 
31.
        .Sender = Sender   ' Absender 
32.
        .FROM = SenderName ' Absendername 
33.
        .BCC = Empfaenger 
34.
      
35.
       
36.
        .textBody = Mailtext 
37.
        .textBodyPart.ContentMediaType = "text/plain" 
38.
        .textBodyPart.Charset = "ISO-8859-1" 
39.
        .textBodyPart.ContentTransferEncoding = "quoted-printable" 
40.
         
41.
   
42.
        ' Lesebestätigung Anfordern 
43.
        .Fields("urn:schemas:mailheader:disposition-notification-to") = "user@test.de" 'ToDo: Type a valid e-mail address. 
44.
        .Fields.Update 
45.
       
46.
         
47.
        'Set DSN options. 
48.
        '    Name                   Value       Description 
49.
        '    cdoDSNDefault             0       No DSN commands are issued. 
50.
        '    cdoDSNNever               1       No DSN commands are issued. 
51.
        '    cdoDSNFailure             2       Return a DSN if delivery fails. 
52.
        '    cdoDSNSuccess             4       Return a DSN if delivery succeeds. 
53.
        '    cdoDSNDelay               8       Return a DSN if delivery is delayed. 
54.
        '    cdoDSNSuccessFailOrDelay  14      Return a DSN if delivery succeeds, fails, or is delayed. 
55.
        .DSNOptions = cdoDSNSuccessFailOrDelay 
56.
        .DSNOptions = 14 
57.
        .DSNOptions.Update 
58.
         
59.
       'Dringlichkeit einbinden 
60.
       ' Prio 
61.
        .Fields("urn:schemas:mailheader:X-MSMail-Priority") = "High" ' For Outlook 2003 
62.
        .Fields("urn:schemas:mailheader:X-Priority") = 2 ' For Outlook 2003 also 
63.
        .Fields("urn:schemas:httpmail:importance") = 2 ' For Outlook Express 
64.
        .Fields.Update 
65.
     On Error Resume Next 
66.
     .Send
Inhalt der Internetkopfzeilen:
Received: from xxxx (xxx) by xxxxx
(xxx) with Microsoft SMTP Server id 14.3.210.2; Fri, 16 Jan 2015
13:50:32 +0100
thread-index: AdAxiwOMULcOYeivQ4iKxYt82P+T2w==
Thread-Topic: xxxxx
From: xxx <xxx@xxxxxt>
Sender: <xxxxx@xxxxt>
BCC:
Subject: Performance Probleme in Cross
Date: Fri, 16 Jan 2015 13:50:32 +0100
Message-ID: <xxxx@xxxx>
MIME-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
X-Mailer: Microsoft CDO for Windows 2000
Content-Class: urn:content-classes:message
Importance: normal -> WIRD NICHT VERÄNDERT
Priority: normal -> WIRD NICHT VERÄNDERT
X-MimeOLE: Produced By Microsoft MimeOLE V6.1.7601.17609
Return-Path: xxx@xxxxx -> WIRD NICHT VERÄNDERT
X-MS-Exchange-Organization-AuthSource: xxxxx
X-MS-Exchange-Organization-AuthAs: Internal
X-MS-Exchange-Organization-AuthMechanism: 10
X-MS-Exchange-Organization-AVStamp-Mailbox: NAI;56077888;0;novirus


Grüße aus München
Mitglied: 114757
16.01.2015 um 16:44 Uhr
Moin,

Erstens:
Den Notification Flag können Mailserver ohne Vorwarnung ignorieren und entfernen. Das machen z.B. Hoster wie GMX und Co.

Zweitens:
Der Header "Return-Path" hat nix mit der Notification-Adresse zu tun.

Drittens:
Zur Priority könntest du noch folgendes probieren:
.Fields(cdoImportance) = cdoHigh


Gruß jodel32
Bitte warten ..
Ähnliche Inhalte
Windows Tools
MMC-Aufgabe verschwindet, wenn X größer als 2 in COL(X) ist (2)

Frage von LosPollos zum Thema Windows Tools ...

Grafikkarten & Monitore
Frage Grafikkarte PCI Express 3.0 x 16 (7)

Frage von rainergugus zum Thema Grafikkarten & Monitore ...

Firewall
PfSense Repository für Version 2.3.x (9)

Information von Dobby zum Thema Firewall ...

Batch & Shell
gelöst In allen Textdateien eines bestimmten Pfades die Zeilen x bis Ende löschen (2)

Frage von Schloth zum Thema Batch & Shell ...

Neue Wissensbeiträge
Viren und Trojaner

Neues Botnetz über IoT-Geräte

Information von certifiedit.net zum Thema Viren und Trojaner ...

Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Externe IP von innen erreichbar machen (15)

Frage von Windows10Gegner zum Thema Router & Routing ...

Windows Installation
Windows 10 neu installieren (12)

Frage von imebro zum Thema Windows Installation ...

Windows Server
Frage zu Server Rack (11)

Frage von rainergugus zum Thema Windows Server ...