Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilenabstand / automatischer Empfänger
 27.01.2015 16:41:51 Karle
NotSolved

Ansicht des Beitrags:
Von:
Karle		 Datum:
27.01.2015 16:41:51		 Views:
2275		 Rating:
     
Antwort:
  Ja
Thema:
Zeilenabstand / automatischer Empfänger

Ich bekomme Benachrichtigungsmails, in welchen Daten über Personen stehen.

Normal drücke ich auf "weiterleiten", füge einen Standardtext ein, füge eine Analge hinzu, passe die Anrede an und füge noch eine Person in cc, abhängig der Postleitzahl, welche angegeben wurde in der Benachrichtigungsmail.

 

Ich habe ein Problem, dass der Zeilenabstand immer auf "auto" steht und es daher viel zu groß ist.

Es muss auf  "0" sein.

Nächstes Problem: Kann ich per VBA programmieren, dass er die e-MailAdresse, die in der Mail unter Punkt "e-Mail": hinterlegt wurde als Empfänger nimmt?

Kann ich abhängig von der PLZ Empfänger unter CC eingeben lassen per VBA?

 

?
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
Sub Neu()
 
Dim MyItem As Outlook.MailItem
Dim obj_curitem As MailItem
Dim obj_newitem
Dim obj_Selection
Dim obj_curfolder
Dim obj_msgitems
Dim Forward As Object
 
 
strBody = "<span style=""font-family : calibri;font-size : 11pt""<p>Guten Tag ,</p>" & _
"<p>&nbsp;</p>" & _
"<p>Bei Fragen stehen wir Ihnen jederzeit gerne zur Verf&uuml;gung.</p>"
 
 
If Err.Number = 0 Then
    'Der selection die aktuelle Mailauswahl zuweisen
    Set obj_Selection = Outlook.ActiveExplorer.Selection
    'Wenn es eine markierte Mail gibt
    If obj_Selection.Count > 0 Then
        'Alle markierten Mails durchlaufen
          
        For Each obj_curitem In obj_Selection
            strID = obj_curitem.EntryID
            Set olNS = Application.GetNamespace("MAPI")
            
            'Object auf einem neuen Item erstellen
            Set obj_newitem = obj_curitem.Forward
            With obj_curitem.Forward
                .Forward = True
                .BodyFormat = olFormatHTML
                .Subject = .Subject
                .To = "j@pn.de"
                .HTMLBody = strBody & .HTMLBody
                .Display
                 
 
  
  
           'ANLAGE HINZUFÜGEN
            d = Dir("S:\*.xls")
             While d <> ""
              .Attachments.Add "S:\" & d
              d = Dir
          Wend
           
            End With
        Next
    End If
End If
 
 
End Sub

 

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 Zeilenabstand / automatischer Empfänger
 27.01.2015 16:41:51 Karle
NotSolved