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, 1338 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Server-Hardware
HP ML350 G9 P440AR Raid5 erweitern? (10)

Frage von sirbuschi2003 zum Thema Server-Hardware ...

Hyper-V
gelöst Hardware und Lizenzfrage: Hyper-V Umgebung um Redundanz erweitern (10)

Frage von Knorkator zum Thema Hyper-V ...

Windows Server
gelöst Wie hieß das Tool nochmal um die AD Anzeige der Reiter zu erweitern? (7)

Frage von M.Marz zum Thema Windows Server ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...