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

Beiträge aus den Excel-Beispielen zum Thema "eMail Dialog ohne Anhang zu Outlook erzeugen"