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, 1394 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
Off Topic

"Ich habe nichts zu verbergen"

(2)

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Ähnliche Inhalte
Microsoft Office
MS Office History erweitern (1)

Frage von leofabian zum Thema Microsoft Office ...

Batch & Shell
Batch Skript erweitern (1)

Frage von michi-ffm zum Thema Batch & Shell ...

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 ...

Heiß diskutierte Inhalte
Linux Netzwerk
gelöst DHCP vergibt keine Adressen (31)

Frage von Maik82 zum Thema Linux Netzwerk ...

Exchange Server
gelöst Bestehende eMails autoamatisch weiterleiten (22)

Frage von metal-shot zum Thema Exchange Server ...

Switche und Hubs
LAG zwischen SG300-Switches macht Probleme. Wer weiß Rat? (20)

Frage von White-Rabbit2 zum Thema Switche und Hubs ...

Apache Server
gelöst Lets Encrypt SSL mit Apache2 (20)

Frage von banane31 zum Thema Apache Server ...