Supportnet / Forum / Anwendungen(Java,C++...)

Hallo zusammen, möchte per Makro ein spezielles Mailformular generieren. Mir fehlen jedoch die speziellen Kenntnisse für die Feldbezeichnungen. Also für CC dort soll Chef drinnstehen im Betreff soll WICHTIG drinnstehen und im Textfeld: Sehr geehrte Damen und Herren, vielen Dank für Ihr Interesse! Mit freundlichen Grüßen Martin Hier meine Idee ???? Public Sub Neue_Mail() Set myOlApp = CreateObject("Outlook.Application") Set MyItem = myOlApp.CreateItem(olMailItem) MyItem.Body = Chr$(13) MyItem.To = " an-XY@mail.de" MyItem.Display End Sub Danke für Eure Hilfe Martin

Eigentlich sind für solche trivialen Sachen Entwürfe hervorragend geeignet. Einfach eine Mail exakt deinen Wünschen erstellen und (als Entwurf) speichern.

Ich dachte es gibt jemanden der mir hier den Code erklären kann? Natürlich ist die Sache mit Entwürfen machbar, es gibt aber bei uns Mitarbeiter die damit nicht umgehen können.

Von daher wäre es schon schön wenn ich hier einen Tipp bekämen.

Danke dir und Euch dafür!

LG Martin

Aha - dann sag das doch :-)

Public Sub Neue_Mail()
  ' ein nötiges Outlook-Object erzeugen
  Set myOlApp = CreateObject("Outlook.Application")
  
  ' aus dem Outlook-Objekt ein Mail-Objekt erzeugen
  Set myitem = myOlApp.CreateItem(olMailItem)

  ' CC (Kopie) zuweisen - möglichst mit echter E-Mail-Adresse wie chef@firma.de
  ' Bei mehreren Kopie-Empfängern müssen die E-Mail-Adressen mit Semikolons getrennt werden
  myitem.CC = "Chef"
  
  ' Betreff zuweisen - möglichst aussagekräftig, denn "WICHTIG" sagt gar nichts
  myitem.Subject = "WICHTIG"
  
  ' Mail-Text zuweisen. Für einen Zeilenumbruch muss die Konstante VBCRLF verwendet werden
  myitem.Body = "Sehr geehrte Damen und Herren," & vbCrLf & vbCrLf & _
                "vielen Dank für Ihr Interesse!" & vbCrLf & vbCrLf & _
                "Mit freundlichen Grüßen" & vbCrLf & vbCrLf & _
                "Martin"
                
  ' Die neue Mail auch als Fenster anzeigen
  myitem.Display
End Sub

Es bleibt allerdings dann die Notwendigkeit, dass die Nutzer zumindest einen extra eingerichteten Button klicken müssen, damit dieses Makro ausgeführt wird - genausogut könnte wahrscheinlich per Button eine Vorlage angezeigt werden. Falls immernoch was unklar ist, einfach nochmal melden.

Nun möchte ich es natürlich nicht versäumen mich herzlichst zu bedanken.


DANKE

bis bald mal Martin

Noch eine Kleinigkeit? Kann ich im Quelltext dem nachfolgendem Text einen bestimmte Schriftart und Größe zuweisen?

VIELEN DANK Martin

Hallo Martin,

das geht nur, wenn Du die Mail als HTML-Mail verfassen lässt. Du müsstest dann an den Mail-Body den HTML-Quelltext, der die Formatierungen für den Text enthält, übergeben. Mal einen Code als Beispiel:

myitem.Body = "<font face=""Verdana"" size=""2"" color=""#FF0000"">Hier dann den Text eintragen, der in dieser Beispielzeile dann in Schriftart ""Verdena"" in der Größe 10 und in der Schriftfarbe rot dargestellt wird.</font>"

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Danke für die guten Tipps. Sieht ganz prima aus.

Vielen Dank

Martin

• VBA CODE Problem bei der Ausgabe
• VBA - Problem mit Listbox
• Sverweis mit VBA bei gleichen Suchkriterium
• VBA Code