Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Outlook - Standard Email-Account ändern

Outlook - Standard Email-Account ändern
Peter
Ich würde gerne per VBA das Standard Email Account ändern.
Von Hand geht das in Outlook mittels Extras../ E-Mail-Konten / Vorhandene E-Mail-Konten anzeigen oder bearbeiten / entsprechendes E-Mail Konto selektieren und "Als Standard festl."
Ich würde nun gerne von Excel aus vom Konto A auf B umschalten.
Danke für die Unterstützung.
Grüße
Peter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Mail ohne Outlook senden.
28.02.2010 09:50:04
Tino
Hallo,
du kannst auch mal dies versuchen und die Mails ohne Outlook senden.
Const CDO_Username As String = "http://schemas.microsoft.com/cdo/configuration/sendusername"
Const CDO_Password As String = "http://schemas.microsoft.com/cdo/configuration/sendpassword"
Const CDO_SmtpServer As String = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const CDO_Smtp_ServerPort As String = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const CDO_SendUsing As String = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const CDO_Smtp_Serverauthenticate As String = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const CDO_ServerTimeOut As String = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const CDO_SmtpUsessl As String = "http://schemas.microsoft.com/cdo/configuration/smtpusessl"

Sub EMail_Senden_Ohne_Outlook()
     Dim iNachricht As Object
     Dim iKonfiguration As Object
     Dim Felder As Variant
 
     Set iNachricht = CreateObject("CDO.Message")
     Set iKonfiguration = CreateObject("CDO.Configuration")
     iKonfiguration.Load -1
     Set Felder = iKonfiguration.Fields
     
     With Felder
        .Item(CDO_SmtpUsessl) = True
        .Item(CDO_Smtp_Serverauthenticate) = 1
        .Item(CDO_Username) = "Username" '"Deine E-Mail-Adresse oder Username" 
        .Item(CDO_Password) = "Passwort" 'Passwort angeben 
        .Item(CDO_SmtpServer) = "smtp.Proviter.de" 'Postausgangsserver 
        .Item(CDO_SendUsing) = 2
        .Item(CDO_Smtp_ServerPort) = 25 'SMTP-Port 
        .Item(CDO_ServerTimeOut) = 10 'Timeout 
        .Update
     End With
 
     With iNachricht
         Set .Configuration = iKonfiguration
         .To = "Musterfrau@Proviter.com"        'Empfänger 
         .CC = ""                               'Zur Kenntnis 
         .BCC = ""                              '.BCC nicht sichtbare Empfänger 
         .ReplyTo = ""
         .Sender = "Mustermann@Proviter.de"     'Von 
         .From = """Dein Name"" "
         .Subject = "Betreff"                   'Betreffzeile 
         .TextBody = "Deine Nachricht!"         'Nachricht 
         .AddAttachment "C:\Ordner\Bild.gif"    'Anlage 
         .Send
     End With
 
 End Sub
Gruß Tino
Anzeige
AW: Mail ohne Outlook senden.
28.02.2010 13:20:03
Ramses
Hallo Tino
um das zu verwenden, müssen aber die CDO-Erweiterung von MS-Office bzw. Outlook installiert sein.
Die werden Standardmässig nicht installiert und unterstützen auch nicht alle Office Versionen.
Soweit ich weiss, werden nur Professional und höhere Versionen untestützt
Gruss Rainer
ok. gut zu wissen, ...
28.02.2010 13:36:28
Tino
Hallo,
vielleicht kann Peter dennoch damit was anfangen.
Gruß Tino
AW: Outlook - Standard Email-Account ändern
28.02.2010 15:26:34
mumpel
Hallo!
Das geht erst ab Outlook 2007 (SendUsingAccountcolor>). In Outlook 2003 geht das nur bei installiertem Exchangeserver (SentOnBehalfOfNamecolor>). Mit beidem kannst Du temporär über ein anderes Konto senden.
Gruß, René
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige