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, 1373 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
Basic
VBScript erweitern für Subfolder (8)

Frage von 132078 zum Thema Basic ...

Batch & Shell
gelöst Powershell - Werte in Variable durch Schleife erweitern bzw. ändern (5)

Frage von ralfkausk zum Thema Batch & Shell ...

Datenbanken
gelöst MySQL Abfrage um JOIN erweitern (14)

Frage von datadexx zum Thema Datenbanken ...

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

Frage von sirbuschi2003 zum Thema Server-Hardware ...

Heiß diskutierte Inhalte
Exchange Server
gelöst Email in Exchange an 2ten Empfänger senden (18)

Frage von MultiStorm zum Thema Exchange Server ...

Weiterbildung
Gehaltsvorstellungen (14)

Frage von SYS64738 zum Thema Weiterbildung ...

Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (13)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...

Windows Server
gelöst Microsoft-Lizenz CALs und passendes Server-Betriebssystem (13)

Frage von planetIT2016 zum Thema Windows Server ...