Hallo!
Wiedermal eine Delphi->VB.NET Portations-Frage von mir...
Delphi-Beispiel:<pre>function SendMail(const ATitle, AMsg: String; ARecips,
AFiles: TStrings; AStyle: TMAPIStyle; Aply: Boolean): Boolean;
[...]
var
MMessage: TMapiMessage;
begin
[...]
MMessage.ulReserved := 0;
MMessage.lpszSubject := PChar(ATitle);
MMessage.lpszNoteText := PChar(AMsg);
MMessage.lpszMessageType := nil;
MMessage.lpszDateReceived := nil;
MMessage.lpszConversationID := nil;
MMessage.flFlags := 0;
MMessage.lpOriginator := nil;
MMessage.nRecipCount := nRecipCount;
MMessage.lpRecips := PMapiRecipDesc(PRecipDescList);
MMessage.nFileCount := nFileCount;
MMessage.lpFiles := PMapiFileDesc(PFileDescList);
case AStyle of
msLogon: EError := MapiSendMail(0, 0, MMessage, MAPI_LOGON_UI, 0);
msDialog: EError := MapiSendMail(0, 0, MMessage, MAPI_LOGON_UI or MAPI_DIALOG, 0);
msHidden: EError := MapiSendMail(0, 0, MMessage, 0, 0);
end;
case EError of
[...]
end;
Result := (EError = SUCCESS_SUCCESS);
end;</pre>...mit diesem Beispiel kann ich einfach eine eMail an das Standard-eMail-Programm übergeben und auf Wunsch automatisch über die Default-Adresse verschicken ohne das der Anwender eine zusätzliche Bestätigungsanforderung erhält.
Wie kann ich das unter VB.NET umsetzen bzw. auf anderem Wege realisieren?!?
Vielen Dank<br>
Nico Stöckigt<br>
<br>
Wiedermal eine Delphi->VB.NET Portations-Frage von mir...
Delphi-Beispiel:<pre>function SendMail(const ATitle, AMsg: String; ARecips,
AFiles: TStrings; AStyle: TMAPIStyle; Aply: Boolean): Boolean;
[...]
var
MMessage: TMapiMessage;
begin
[...]
MMessage.ulReserved := 0;
MMessage.lpszSubject := PChar(ATitle);
MMessage.lpszNoteText := PChar(AMsg);
MMessage.lpszMessageType := nil;
MMessage.lpszDateReceived := nil;
MMessage.lpszConversationID := nil;
MMessage.flFlags := 0;
MMessage.lpOriginator := nil;
MMessage.nRecipCount := nRecipCount;
MMessage.lpRecips := PMapiRecipDesc(PRecipDescList);
MMessage.nFileCount := nFileCount;
MMessage.lpFiles := PMapiFileDesc(PFileDescList);
case AStyle of
msLogon: EError := MapiSendMail(0, 0, MMessage, MAPI_LOGON_UI, 0);
msDialog: EError := MapiSendMail(0, 0, MMessage, MAPI_LOGON_UI or MAPI_DIALOG, 0);
msHidden: EError := MapiSendMail(0, 0, MMessage, 0, 0);
end;
case EError of
[...]
end;
Result := (EError = SUCCESS_SUCCESS);
end;</pre>...mit diesem Beispiel kann ich einfach eine eMail an das Standard-eMail-Programm übergeben und auf Wunsch automatisch über die Default-Adresse verschicken ohne das der Anwender eine zusätzliche Bestätigungsanforderung erhält.
Wie kann ich das unter VB.NET umsetzen bzw. auf anderem Wege realisieren?!?
Vielen Dank<br>
Nico Stöckigt<br>
<br>
Comment