PDA

Vollständige Version anzeigen : Outlook


Supi111
20.07.2014, 15:21
Hallo Experten
ich hätte eine Hilfe benötigt
ich möchte ein Tabellenbllatt aus excel per outlook mit signatur versenden,
wobei wenn möglich bei öffnen der mail das keine veränderungen vorenommen werden können.
ich habe nicht viel ahnung von vba habe etwas im Internet gefunden:
das ist Code:

Public Sub MailMitSignatur()

Dim olApp As Object, objMail As Object

Set olApp = CreateObject("Outlook.Application")
Set objMail = olApp.CreateItem(0)

With objMail
.GetInspector ' sorgt für die Signatur
.To = "wlb@gmx.at"
.Subject = "Ich bin ein Betreff"
.Body = "Ich bin der Body" & vbNewLine & .Body
.Send
End With

Set objMail = Nothing
Set olApp = Nothing

End Sub
danke für eure hilfe.

mumpel
21.07.2014, 00:16
Hallo!

1. Welche Outlookversion?
2. Eine Email kann man nicht vor Veränderungen schützen.

<pre style='border:thin solid #FF8000; padding:12px 24px; margin-left:12px; color:#000000'><span style='color:#0000EE'>Public</span> <span style='color:#0000EE'>Sub</span> MailMitSignatur() <span style='color:#0000EE'>Dim</span> olApp <span style='color:#0000EE'>As</span> <span style='color:#0000EE'>Object</span> <span style='color:#0000EE'>Dim</span> olOldBody <span style='color:#0000EE'>As</span> <span style='color:#0000EE'>String</span> <span style='color:#0000EE'>Set</span> olApp = CreateObject(<span style='color:#FF0000'>&quot;Outlook.Application&quot;</span>) <span style='color:#0000EE'>With</span> olApp.CreateItem(<span style='color:#DDAA00'>0</span>) .GetInspector.Display olOldBody = .htmlBody .To = <span style='color:#FF0000'>&quot;empf&auml;nger@server.de&quot;</span> .Subject = <span style='color:#FF0000'>&quot;Ich bin ein Betreff&quot;</span> .htmlBody = <span style='color:#FF0000'>&quot;Hallo!&lt;br&gt;&lt;br&gt;Ich bin der Body&lt;br&gt;&lt;br&gt;Gru&szlig;, Max&lt;br&gt;&lt;br&gt;&quot;</span> & olOldBody .Send <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>With</span> <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>Sub</span><br><br><hr style='color: #FF8000; background-color: #3300B2; height: 1.5px;' /><br><br><p style='font-size: 8px; font-family: Verdana; text-align: right;'><a href='http://www.rholtz-office.de/index.php?index=vbahtml' target='_blank'>VBA/HTML - CodeConverter f&uuml;r Office-Foren</a><br>AddIn f&uuml;r Excel/Word 2000-2010 - komplett in VBA geschrieben von <a href='http://www.office-loesung.de/viewprofile19265.php'>Lukas Mosimann</a><br />Projektbetreuung durch mumpel</p><br /><br />Code erstellt und getestet in Office 15</pre>

Gruß, René

Supi111
21.07.2014, 04:11
Hallo Herr Mumpel
Danke für die schnelle Antwort
das vba fpr Signatur währe ok. und passt
wie kan ich jetzt noch zu dem das Tabellenblatt aus Excel 2010 als Anhang
mitversenden?
dann hätte ich es so wie es benötigt wird?

Danke nochmals Supi

Stefan67!
21.07.2014, 13:05
Hallo Supi,

Datei speichern - evtl. temporär und danach löschen und als Attachment vor dem .send-Befehl:

ActiveWorkbook.SaveAs Datei:="C:\Mappe1.xlsm", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 'oder welcher Pfad auch immer


With olApp.CreateItem(0)
. ...
.Attachments.Add Datei
.send

Supi111
22.07.2014, 10:34
Hallo 'stefan
Danke für deine Hilfe, aber ich hab wie gepostet keine ahnung von VBA
köntest du mir biitte das so zusammenstellen wie ich es benötigen würde
Danke .