| |
Fortgeschrittene ProgrammierungMS Outlook VBA | | | Autor: wyssnet | Datum: 29.08.18 16:00 |
| Hallo Zusammen
Ich wollte mal fragen im Outlook gibt es ja ein VBA wo man sachen Programmieren kann.
Wer hat schon mal in Outlook VBA Programmiert.
Ich möchte gerne ein kleines Tool machen wo folgendes ausführen würde.
Von unsere ERP Software NAV aus kann ich Mails über Outlook versenden das heist es öffnet sich ein neues Outlook
Fenster wo bereits ausgefüllt ist mit Text, mailadresse usw.
Jetzt möchte ich eine speziell Antwortadresse im Mail hinterlegen das wenn der Kunde eine Frage zu dieser versendeten Rechnung hat das die Antwort direkt an die richtige Adresse gestellt wird.
Das ganze sollte aber nur passieren wenn der Betreff Text z.b. "Rechnung..." heisst
z.b
Empfänger = Kunde@kundendomain.ch
Absender = logistik@meineFirma.ch
Antwort = buchaltung@meinefirma.ch
lässt sich das so umsetzten ?
Ich habe schon viel VB6 und Excel VBA Programmiert aber habe noch keinen Kontakt gehabt mit Outlook VBA
Oder hat jemand irgendwelche Code beispiele von Outlook VBA wo ich einiges sehen könnte wie man das händelt
Oder wo gibts es ein Forum genau für das ?
Danke für Eure hilfe
Grüsse
Dany | |
Re: MS Outlook VBA | | | Autor: Souffleurlos | Datum: 29.08.18 18:10 |
| Hallo Wyssnet,
genau dein Problem ist mein Spezialgebiet.
Bitte kontaktiere mich per eMail in diesem Forum. | |
Re: MS Outlook VBA | | | Autor: wyssnet | Datum: 29.08.18 18:13 |
| Hallo
Man keine Mails mehr versenden über dein User | |
Re: MS Outlook VBA | | | Autor: Souffleurlos | Datum: 29.08.18 18:18 |
| Souffleurlos schrieb:
Zitat: | | Hallo Wyssnet,
genau dein Problem ist mein Spezialgebiet.
Bitte kontaktiere mich per eMail in diesem
Forum. | |
p.S. Ich programmiere eit über 30 Jahren VBA mit Excel, Word, Access, Outlook und bin
fit in Datenbankprogrammierung. | |
Re: MS Outlook VBA | | | Autor: Souffleurlos | Datum: 29.08.18 18:21 |
| Hallo Du,
doch doch. Du musst nur den Namen Souffleurlos klicken und kannst posten. | |
Re: MS Outlook VBA | | | Autor: wyssnet | Datum: 29.08.18 20:20 |
| Sali
es geht wirklich nicht
Hinweis: Die E-Mail Sendefunktion kann aufgrund der neuen DSGVO nicht mehr verwendet werden! | |
Re: MS Outlook VBA | | | Autor: Franki | Datum: 03.09.18 01:49 |
| Hallo,
leider geht das nicht mehr, siehe z.B. auch:
https://www.vbarchiv.net/forum/id1_i44059t44059_e-mail-aus-forum-und-dsgvo.html
Es führt leider wohl kein Weg daran vorbei unsere E-Mail Adressen hier im Klartext zu nennen damit man uns kontaktieren kann. Ich bin fast genau so lange im Geschäft wie du, früher war das einfach, da konnte jeder sehen wie man Kontakt aufnehmen kann (Damals gab es noch die Newsgroups (NNTP)), dann wurde es über Funktionen gemacht wie sie hier funktioniert haben (OK, war ein Sicherheitsgewinn) aber jetzt hat die DSGVO alles auf 0 gesetzt.
Aber gut damit muss man leben, dass es eine Verschlimmbesserung gibt, Dieter kann nichts dafür, wir müssen es ausbaden was die Politik vorgeschrieben hat. Also Back to the roots, wie früher die Kontaktdaten im Klartext nennen. Ich habe das schon gemacht und keine negativen Auswirkungen gespürt bisher.
Ich würde mich auch freuen, wenn Dieter an einer DSGVO konformen Lösung arbeiten würde. Aber die Panikmache in den Medien hindert ihn wahrscheinlich daran an diese Aufgabe zu gehen.
Gruß
Frank | |
Re: MS Outlook VBA | | | Autor: HenryV | Datum: 03.09.18 10:48 |
| Hallo Dany
Hier ein paar Stichworte zur Lösung deines Problems.
- Application.ItemSend-Ereignis
- MailItem.Subject-Eigenschaft
- MailItem.ReplyRecipients-Eigenschaft
Public Sub Initialize_handler()
Set Application = Outlook.Application
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next
' Check if i use sending account on which i always want change reply to
' address
If InStr(Item.Subject, "Rechnung") > 0 Then
' Delete any existing reply recipients
Do While Item.ReplyRecipients.Count > 0
Item.ReplyRecipients.Remove 1
Loop
' Add the new reply-to address
strReplyToAddress = "buchaltung@meinefirma.ch"
Set objRecip = Item.ReplyRecipients.add(strReplyToAddress)
objRecip.Resolve
End If
End Sub Gruss HenryV | |
Re: MS Outlook VBA | | | Autor: wyssnet | Datum: 03.09.18 14:14 |
| Sali Henry
Hey besten dank für deinen Tipp das funktioniert ja wunderbar perfekt
Wenn das ja möglich ist kann ich nicht auch den Absender gleich "buchaltung@meinefirma.ch" eintragen
das der Kunde sehen kann das diese Mail von der Buchhaltung kommt!
ich denke das müsste dies sein aber wie weise ich das genau zu ?
Item.SenderEmailAddress
Ich nehme an das ich noch den Usern die Berechtigung im Exchange setzen muss das er über dieses Buchhaltungs mailadresse überhaupt versende kann.
Public Sub Initialize_handler()
Set Application = Outlook.Application
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next
' Check if i use sending account on which i always want change reply to
' address
If InStr(Item.Subject, "Koi-Breeder AG - Rechnung") > 0 Then
' Delete any existing reply recipients
Do While Item.ReplyRecipients.Count > 0
Item.ReplyRecipients.Remove 1
Loop
' Add the new reply-to address
strReplyToAddress = "buchhaltung@meinefirma"
Set objRecip = Item.ReplyRecipients.Add(strReplyToAddress)
'beide varianten gehen nicht
'Set objRecip = Item.SenderEmailAddress = "daniel.wyss@koi-breeder.ch"
'Item.SenderEmailAddress = "buchhaltung@meinefirma"
objRecip.Resolve
End If
End Sub besten Dank
Dany | |
Re: MS Outlook VBA | | | Autor: wyssnet | Datum: 03.09.18 17:45 |
| Sali Henry
Danke dir
Ich habe versucht eine adresse als BCC oder CC zu adden das hat Funktioniert soweit
Set objRecip = Item.Recipients.Add("info@meineFirma.ch")
objRecip.Type = olBCC dann habe ich gesehen das der olOriginator der Absender wäre wenn ich das richtig verstanden habe.
Set objRecip = Item.Recipients.Add("info@meineFirma.ch")
objRecip.Type = olOriginator Das funktioniert aber nicht es kommt ein Fehler den ich gar nicht einmal sehen kann
Ich habe aber in meinem Outlook das Postfach Info@ und meine.name@ und habe mit beide die Berechtigung zu senden
sollte es dann so nicht funktionieren ?
Oder mich ich sonst noch was einbauen ?
Danke dir für deine Hilfe | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevPopUp 2.0
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|