Thema Datum  Von Nutzer Rating
Antwort
Rot  Termin Formular unter anderem Mail-Postfach senden
 06.06.2016 19:52:16 Tias
NotSolved
08.06.2016 07:05:47 Tias
NotSolved
08.06.2016 14:28:49 Tias
NotSolved

Ansicht des Beitrags:
Von:
Tias		 Datum:
06.06.2016 19:52:16		 Views:
1291		 Rating:
     
Antwort:
  Ja
Thema:
Termin Formular unter anderem Mail-Postfach senden

Hallo zusammen,

ich habe schon häufig von euren Lösungen profitieren dürfen. Besten Dank dafür.
Nun habe ich aber ein Problem, dass ich bis jetzt nicht lösen kann. Dazu habe ich hier auch noch nichts gefunden.

ich möchte ein Termin-Formular mit einem anderem als mein Standart Postfach unter VBA versenden. Wie kann ich das ändern?
Ein Teil Meines Codes sieht so aus:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
UserForm1.Show
'Bei Abbruch auf der UserForm wird das Skript verlassen
    If Abbruch = True Then
        MsgBox ("Abbruch durch User")
        Exit Sub
    End If
    
    'Wochentag definieren
    tag = Format(datum, "dddd")
    
If MailVorber = False Then GoTo Marke
 
Set outlook = CreateObject("Outlook.Application")
'hier den eigenen pfad reinpacken, dateiname endet mit .oft
    
For I = 1 To 3
    Set neueNachricht = outlook.CreateItemFromTemplate(pfad(I))
    'alten Betreff und Text auslesen - ggf. zugriff erlauben
    betreff = neueNachricht.Subject
    text = neueNachricht.Body
    'Betreff um Datum ergänzen
    betreff = Format(datum, "yyyymmdd") & " - " & betreff
    neueNachricht.Subject = betreff
    'das erste Verzeichnis verweist auf die Terminvorlage, Verzeichnis 2 & 3 auf Mails, Verzeichnis 4 auf eine Worddatei
    If I = 3 Then
        'Termin ändern
        With neueNachricht
        .Start = Format(datum, "dd.mm.yyyy") & " " & zeit 'Format(zeit, "hh:mm")
        .Location = ort
        .Duration = dauer
        End With
    Else
        ' Text ändern und ersetzen
        Select Case neueNachricht.BodyFormat
              
            Case 1 'nur Text
                text = neueNachricht.Body
                text = Replace(text, "<Tag>", tag)
                text = Replace(text, "<Datum>", datum)
                text = Replace(text, "<Uhrzeit>", zeit)
                text = Replace(text, "<Ort>", ort)
                neueNachricht.Body = text
                  
            Case 2 'htmlMail mit Tabellen
                text = neueNachricht.HTMLBody
                text = Replace(text, "&lt;Tag&gt;", tag)
                text = Replace(text, "&lt;Datum&gt;", datum)
                text = Replace(text, "&lt;Uhrzeit&gt;", zeit)
                text = Replace(text, "&lt;Ort&gt;", ort)
                neueNachricht.HTMLBody = text
          
            Case Else 'falls ein Fehler kam, RichText wäre 3 und unspecified die 0
              
        End Select
    End If
          
    neueNachricht.Display '
    Set neueNachricht = Nothing
Next I

ich öffne erst zwei Mail-Formulare und anschließend das Termin-Formular (pfad(3)). Bei allen wird immer das Standard Postfach als Absender genutzt. Das möchte ich nicht sondern möchte ein anderes Postfach auswählen.

Ich bin um jede Hilfe dankbar.

Gruß,
Tias

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot  Termin Formular unter anderem Mail-Postfach senden
 06.06.2016 19:52:16 Tias
NotSolved
08.06.2016 07:05:47 Tias
NotSolved
08.06.2016 14:28:49 Tias
NotSolved