Drupal中创建一个hook_user，并用mail函数发送email方法教程

如果想在drupal的用户账号里添加一些自己的内容，就要用到hook_user钩子函数。
例如在wedpage.module中添加一个“创建页面的链接”和一个“发送邮件的form”

function wedpage_user($type, &$edit, &$user, $category = NULL){
9 M( |! C) g. _* d( l/ S6 s( {; y. rif ($type == 'view') {
$items['wedpage'] = array(
& x  a& y4 B" g- m; j'value' => l(t('Create your wedding homepage.'), 'wedpage/add'),
);
) S4 ~; C) d& G& z$items_mail['send_mail'] = array(
'value' => drupal_get_form('wedpage_mail_form'),
);
3 Z$ a- `7 k! g$wedpage = array(
, Z, x% W# a! R/ N- A# m8 A! l7 Wt('Wedding homepage') => $items,
  o+ B' n; t# X) M' z& kt('Send email to your friends') => $items_mail,
);
return $wedpage;
; O. @2 T2 X. L* K. z  F3 H}
}
5 \: {. q% Y8 b; E! Uuser的钩子函数就设置成功了！
2 p, _7 r* F- V9 o下面创建mail的发送函数
3 c  ]! y" V; I( [6 [' G
6 Y2 |) j& n' n- }3 S8 Lfunction wedpage_mail_form(){
5 R/ U3 U) }+ l$ V$form['wedpage_mail'] = array(
'#type'             => 'textfield',
& z, k% Z% B: b$ t1 ?7 V" I5 z: h'#size'             => 60,
'#prefix'            => '<table><tr><td>',
2 c9 z) R: _/ S4 u  ?* ?6 k'#suffix'            => '</td>',
. `8 f+ {7 M/ N% R' H6 v; i);   
$form['submit'] = array(
! P+ W4 l" S3 i4 ]$ N; i( `( p, x& k'#type'             => 'submit',
5 J  ?% c6 `% S0 Y+ ^# D) k'#value'             => t('Send'),
'#prefix'            => '<td>',
1 V. i" u( ^: t; Y'#suffix'            => '</td></tr></table>',
);      
5 p/ P3 c) A1 kreturn $form;   
- R7 Z  Q- _2 q}
0 e" q1 d; N- z$ d1 Nfunction wedpage_mail_form_submit($form_id, $form_values){
0 U! o7 v1 k0 \4 E" yglobal $user, $base_url;
if (valid_email_address($form_values['wedpage_mail'])) {
$mailkey = 'wedpage';
! ^$ L( a# i/ z) ?; P$to = $form_values['wedpage_mail'];
5 G& @' q) P9 v$subject = 'wedding web page address';
+ {% p- f( a3 r" u/ n$url     = $base_url.'/ourwedding/'.$user->uid;
3 m. i) ?0 H* l6 b$body = $url;
8 h$ _; Q& e$ @+ k) o5 R9 lif (drupal_mail($mailkey, $to, $subject, $body)) {
drupal_set_message(t('The mail send successful!'));
}else {
; h% {* N7 }% E5 k7 ~$ G0 l; H' ddrupal_set_message(t('The mail send failed.'), 'error');
5 z0 q- N( W2 b9 _) V& g: d; ~}
7 b2 T2 \( c: l2 k}else {
" \, D4 A& n; a4 N& Sdrupal_set_message(t('The e-mail address %mail is not valid.', array('%mail' => $form_values['wpage_mail'])), 'error');
}
}
% x5 P9 k& V" X5 ?6 ~- C% k上面的函数中valid_email_address是一个系统的验证email的函数，drupal_mail函数用于测试邮件是否发送成功！

( m3 F/ ]; b. s6 ?: i3 ^