Microsoft Excel

Herbers Excel/VBA-Archiv

Formular unter Bedingungen per Email senden

Betrifft: Formular unter Bedingungen per Email senden von: Liz
Geschrieben am: 28.10.2014 18:18:03

Hallo Zusammen!
Ich habe ein Problem. Ich habe ein Formular in Excel und Word erstellt. Dieses Soll nun automatisch als Anhang per Mail versendet werden bei Aktivierung eines Buttons. Hierfür habe ich diesen Code gefunden:

Sub AktivesDokumentAlsAnhang()
Dim aws As String
Dim olapp As Object
ActiveDocument.Save
aws = ActiveDocument.FullName
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.To = "empfänger@server.de"
.Subject = "Text" ' Betreff optional
.HtmlBody ="Text" ' Body optional
.Attachments.Add aws
.Display
'SendKeys "%s", True ' optional Mail sofort senden
End With
Set olapp = Nothing
End Sub
Das eigentliche Problem ist jedoch, dass dieser Button erst funktioniert, wenn bestimmte Felder (in word) und bestimmte Zellen (in Excel) ausgefüllt sind. Das Ergebnis soll wie Folgt aussehen: Wenn der Button geklickt wird und Felder nicht ausgefüllt sind sollen diese Felder rot markiert werden und eine Box soll erscheinen in der steht "Bitte zuerst alle Pflichtfelder ausfüllen".
Wer kann mir helfen? Ist es leichter in Word oder in Excel zu realisieren?
Vielen Dank!

  

Betrifft: AW: Formular unter Bedingungen per Email senden von: Tino
Geschrieben am: 31.10.2014 10:00:50

Hallo,
wie wäre es mit einer Rückmeldung?

https://www.herber.de/forum/archiv/1388to1392/t1388684.htm#1388692

Gruß Tino


 

Beiträge aus den Excel-Beispielen zum Thema "Formular unter Bedingungen per Email senden"