Herbers Excel-Forum - das Archiv

eMail Dialog ohne Anhang zu Outlook erzeugen

Bild

Betrifft: eMail Dialog ohne Anhang zu Outlook erzeugen
von: Mathias

Geschrieben am: 04.04.2005 09:02:27
Hallo Excel Freunde,
bin schon fast am verzweifeln, könnt Ihr mir helfen?
Ich möchte aus Excel herraus einfach ein Mail Dialog erzeugen, ohne das die Datei als Anlage mit versendet wird, in etwa so, nur halt ohne Anlage
Sub mail_senden()
Dim s1 As String
Dim s2 As String
s1 = ("Hallo@test.local")
s2 = ("Testmail")
Application.Dialogs(xlDialogSendMail).Show s1, s2
End Sub

vielen Dank
Mathias
Bild

Betrifft: AW: eMail Dialog ohne Anhang zu Outlook erzeugen
von: Ceyser Soze

Geschrieben am: 04.04.2005 09:46:19
Hallo Mathias,
folgender code sollte helfen:
Sub Mail_senden_ohne_Anhang()
Dim Outlook As Object, Mail As Object
Dim strEmpfänger As String, strBetreff As String, strText As String
Set Outlook = CreateObject("Outlook.Application")
Set Mail = Outlook.CreateItem(0)
strEmpfänger = "adresse@mail.de"
strBetreff = "Mein Betreff"
strText = "Mein Text"
With Mail
.To = strEmpfänger
.Subject = strBetreff
.Body = strText
.Display
End With
End Sub

Gruß
CS
Bild

Betrifft: geschlossen AW eMail Dialog ohne Anhang zu Outlook
von: Mathias
Geschrieben am: 04.04.2005 09:52:17
Tausend Dank,
das wars. ;-)
Gruss
Mathias
 Bild
Excel-Beispiele zum Thema "eMail Dialog ohne Anhang zu Outlook erzeugen"
In einem Dialog ausgewählte Spalten drucken Excel für die Zeit eines Dialogaufrufes ausblenden
Dialog-Datumseingabe vereinfachen und kontrollieren Adressdaten via Dialog in eine Adressdatei eintragen
Bestellfax über Dialog Bedingte Übergabe des Focus und Setzen der Schreibmarke im Dialog
Dynamischen Dialog erstellen Arbeitsmappe aus Dialog schließen
xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen Laufwerke im Dialog zur Auswahl anzeigen lassen