Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 1450 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
Hardware
Multimediadosen erweitern? (1)

Frage von derRAV3N zum Thema Hardware ...

Server-Hardware
Festplatten voll, wie Speicher clever und leistungsfähig erweitern? (15)

Frage von sirhc4022 zum Thema Server-Hardware ...

SAN, NAS, DAS
gelöst Synology DS1817+ RAID nachträglich erweitern (7)

Frage von smartino zum Thema SAN, NAS, DAS ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Windows Server

Exchange 2010 Active Directory und Windows Server 2016

(4)

Erfahrungsbericht von Herbrich19 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Internet
gelöst Mitarbeiter surft auf unerwünschter Seite - Wie damit umgehen? (49)

Frage von sabines zum Thema Internet ...

LAN, WAN, Wireless
gelöst Eintägige Netzwerkunterbrechung trotz Backupleitung (15)

Frage von iAmbricksta zum Thema LAN, WAN, Wireless ...

Router & Routing
PFsense - Netzverbindung steht, aber kein Internet vorhanden (14)

Frage von aschmid zum Thema Router & Routing ...

Windows Server
Server 2012 R2 - Zugriff Verweigert bei jeglicher Tätigkeit (13)

Frage von DarkLevi zum Thema Windows Server ...