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

Outlook VBA - Mail senden, verschieben, Optionen anpassen

Frage Entwicklung VB for Applications

Mitglied: derbyron

derbyron (Level 1) - Jetzt verbinden

21.10.2008 um 14:17 Uhr, 12086 Aufrufe

Hallo erstmal,
ich bräuchte einmal ein wenig Unterstützung von den Outlook / VBA / Makro Spezialisten.

Zum Hintergrund:
Wir haben 8 Kollegen die jeweils Ihren eigenen Mailaccount nutzen, aber auch immer wieder
Mails aus einem Gruppenaccount verschicken müssen.

Um die Fehlerquellen zu minimieren würde die folgenden Schritte gerne per Makro automatisieren:

- Neue Mail öffnen
- Subject eintragen
- Sent on behalf Adresse eintragen
- Reply to Adresse setzen
- eigene Signatur löschen und die vom Gruppenaccount einfügen

Nach dem Verschicken der Mail soll diese vom Sent Folder des Users in den Sent Folder
des Gruppenaccounts kopiert werden.


Durch diesen Code

01.
Sub Mail_SHD() 
02.
Dim myOLApp As New Outlook.Application 
03.
Dim myOLItem As Outlook.MailItem 
04.
Set myOLItem = myOLApp.CreateItem(olMailItem) 
05.
With myOLItem 
06.
.SentOnBehalfOfName = "gruppenaccount@domain.com" 
07.
.Subject = "Mail aus DACH SERVICE DESK" 
08.
 
09.
End With 
10.
myOLItem.Display 
11.
 
12.
Set objOLItem = Nothing 
13.
 
14.
End Sub
wird schon mal eine neue Mail erstellt, die Sent on behalf Adresse eingetragen.


Nun zu meinen Problemen:

- Ich kriege es trotz einiger Info aus der Google Suche nicht hin die Reply To Adresse automatisiert setzen zu lassen.

- Ich bekomme die Signatur nicht gelöscht und neu gesetzt.

- Ich kriege es leider nicht hin das die Mail nach dem Verschicken in den Sent Folder der Gruppenmailbox verschoben wird.
Der unten gezeigte CODE soll dies ermöglichen, erstens verschiebt er die Mails bei mir garnicht und zweitens hätte ich
gerne das er die Mails immer, ohne Nachfrage nach "Gruppenmailbox\Sent Items" verschiebt.

01.
Private Sub Application_ItemSend(ByVal Item As Object, _ 
02.
    Cancel As Boolean) 
03.
  Dim objNS As NameSpace 
04.
  Dim objFolder As MAPIFolder 
05.
  Set objNS = Application.GetNamespace("MAPI") 
06.
  Set objFolder = objNS.PickFolder 
07.
  If TypeName(objFolder) <> "Nothing" And _ 
08.
     IsInDefaultStore(objFolder) Then 
09.
      Set Item.SaveSentMessageFolder = objFolder 
10.
  End If 
11.
  Set objFolder = Nothing 
12.
  Set objNS = Nothing 
13.
End Sub 
14.
 
15.
 
16.
Public Function IsInDefaultStore(objOL As Object) As Boolean 
17.
  Dim objApp As Outlook.Application 
18.
  Dim objNS As Outlook.NameSpace 
19.
  Dim objInbox As Outlook.MAPIFolder 
20.
  On Error Resume Next 
21.
  Set objApp = CreateObject("Outlook.Application") 
22.
  Set objNS = objApp.GetNamespace("MAPI") 
23.
  Set objInbox = objNS.GetDefaultFolder(olFolderInbox) 
24.
  Select Case objOL.Class 
25.
    Case olFolder 
26.
      If objOL.StoreID = objInbox.StoreID Then 
27.
        IsInDefaultStore = True 
28.
      End If 
29.
    Case olAppointment, olContact, olDistributionList, _ 
30.
         olJournal, olMail, olNote, olPost, olTask 
31.
      If objOL.Parent.StoreID = objInbox.StoreID Then 
32.
        IsInDefaultStore = True 
33.
      End If 
34.
    Case Else 
35.
      MsgBox "This function isn't designed to work " & _ 
36.
             "with " & TypeName(objOL) & _ 
37.
             " items and will return False.", _ 
38.
             , "IsInDefaultStore" 
39.
  End Select 
40.
  Set objApp = Nothing 
41.
  Set objNS = Nothing 
42.
  Set objInbox = Nothing 
43.
End Function
Vielen Dank für eure Mühe ich hoffe ihr könnt mit dabei helfen. Ich bin
nicht wirklich VBA bewandert, wenn ich was lese verstehe ich es aber
meistens ;)

Gruß Jan
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Exchange Server
gelöst Exchange Server Mail senden (5)

Frage von MorrowToon zum Thema Exchange Server ...

Batch & Shell
gelöst PowerShell, Log Datei auslesen, bei Änderungen E-Mail senden (12)

Frage von swissbull zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Ipv4 mieten (22)

Frage von homermg zum Thema Router & Routing ...

Windows Server
DHCP Server switchen (20)

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

Exchange Server
gelöst Exchange 2010 Berechtigungen wiederherstellen (20)

Frage von semperf1delis zum Thema Exchange Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...